با دانلود تحقیق در مورد سیستم مکانیزه دبیرخانه در خدمت شما عزیزان هستیم.این تحقیق سیستم مکانیزه دبیرخانه را با فرمت word و قابل ویرایش و با قیمت بسیار مناسب برای شما قرار دادیم.جهت دانلود تحقیق سیستم مکانیزه دبیرخانه ادامه مطالب را بخوانید.

نام فایل:تحقیق در مورد سیستم مکانیزه دبیرخانه

فرمت فایل:word و قابل ویرایش

تعداد صفحات فایل:47 صفحه

قسمتی از فایل:

این برنامه یک دیتابیس ساده به زبان دلفی با کمک اکسس و دستورات  Sql  می باشد برای این کار ابتدا به برنامه اکسس رفته و یک Tabel  با نام Dabir ایجاد می کنیم که مانند عکس شامل فیلد های زیر می باشد

Nno : شماره نامه ای که قرار است ثبت شود

Subject : موضوع نامه ای که قرار است ثبت شود

Date  : تاریخی که در آن نامه ثبت شذه

Name  : نام صاحب نامه

File  : آدرس فایلی که نامه ذخیره می شود

جدول را ذخیره می کنیم و به دلفی می رویم :

New project   را انتخاب می کنیم

مطابق شکل ابزار زیر را در صفحه قرار می دهیم

کد این یونیت به صورت زیر می باشد

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Buttons, StdCtrls, Menus;

type

  TForm1 = class(TForm)

    Button1: TButton;

    GroupBox1: TGroupBox;

    Button3: TButton;

    Button4: TButton;

    GroupBox2: TGroupBox;

    Button6: TButton;

    Button2: TButton;

    Button5: TButton;

    Button7: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    PopupMenu1: TPopupMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    ColorDialog1: TColorDialog;

    FontDialog1: TFontDialog;

    Label4: TLabel;

    Label5: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure N1Click(Sender: TObject);

    procedure N2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses Unit2, Unit3, Unit5, editor, Unit7, Unit4;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

form1.Close;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Form2.show;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

form3.show;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

form5.show;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

mainform.show;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

form7.show;

end;

procedure TForm1.N1Click(Sender: TObject);

begin

if fontdialog1.Execute then

begin

form1.Font:=  fontdialog1.Font;

form2.Font:=  fontdialog1.Font;

form3.Font:=  fontdialog1.Font;

form4.Font:=  fontdialog1.Font;

form5.Font:=  fontdialog1.Font;

form7.Font:=  fontdialog1.Font;

end;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

  if colordialog1.Execute then

begin

form1.Color :=  colordialog1.Color;

form2.Color :=  colordialog1.Color;

form3.Color :=  colordialog1.Color;

form4.Color :=  colordialog1.Color;

form5.Color :=  colordialog1.Color;

form7.Color :=  colordialog1.Color;

end;

end;

end.