uform_main.~pas

这个程序虽然不怎么多

unit Uform_main;
//应用程序主窗口，由其按用户输入调用其他窗口，实现应用程序提供的各项功能
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Buttons, StdCtrls,  DB, ADODB, ComCtrls;

type
  Tform_main = class(TForm)
    Panel3: TPanel;
    Panel4: TPanel;
    Panel1: TPanel;
    Panel2: TPanel;
    Image1: TImage;
    Dconnect: TADOConnection;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    BitBtn15: TBitBtn;
    BitBtn16: TBitBtn;
    BitBtn17: TBitBtn;
    BitBtn18: TBitBtn;
    BitBtn19: TBitBtn;
    BitBtn22: TBitBtn;
    BitBtn20: TBitBtn;
    BitBtn21: TBitBtn;
    BitBtn23: TBitBtn;
    procedure Panel2Resize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
    procedure BitBtn14Click(Sender: TObject);
    procedure BitBtn15Click(Sender: TObject);
    procedure BitBtn16Click(Sender: TObject);
    procedure BitBtn17Click(Sender: TObject);
    procedure BitBtn18Click(Sender: TObject);
    procedure BitBtn19Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  form_main: Tform_main;

implementation

uses  Uform_from_edit, Uform_area_edit, Uform_fw_edit, Uform_apart_edit,
  Uform_custom_edit, Uform_use_dollor, Uform_custom_pj, Uform_user_list,
  Uform_area_list, Uform_xf_one, Uform_fw_list, Uform_ljxf, Uform_advice,
  Ufrom_letter, Uform_user_rep, Uform_report_jy, Uform_report_fy, Uform_ver ;//, Uform_from_edit;

{$R *.dfm}

procedure Tform_main.Panel2Resize(Sender: TObject);
//改过程确保应用程序主窗口大小改变时标志图片始终位于窗口中央
begin
  Image1.Left := Panel2.Width div 2  - image1.Width div 2 ;
  image1.Top :=panel2.Height div 2  - image1.Height div 2-30  ;
end;

procedure Tform_main.FormCreate(Sender: TObject);
//改过程在主窗体创建的同时，初始化应用程序与关联数据库的连接
begin
  Dconnect.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(ParamStr(0))+'db\database.mdb;Persist Security Info=False';
end;

procedure Tform_main.BitBtn1Click(Sender: TObject);
//显示部门管理窗口
begin
  form_apart_edit.ShowModal ;
end;

procedure Tform_main.BitBtn2Click(Sender: TObject);
//显示来源管理窗口
begin
  form_from_edit.ShowModal ;
end;

procedure Tform_main.BitBtn3Click(Sender: TObject);
//退出应用程序
begin
  if MessageDlg('欢迎使用本软件。确定退出吗?',mtConfirmation,[mbYes,mbNo],0)= mrYes then
    close();
end;

procedure Tform_main.BitBtn4Click(Sender: TObject);
//显示区域管理窗口
begin
  form_area_edit.ShowModal ;
end;

procedure Tform_main.BitBtn5Click(Sender: TObject);
//显示服务项目窗口
begin
  form_fw_edit.showmodal;
end;

procedure Tform_main.BitBtn6Click(Sender: TObject);
//显示客户管理窗口
begin
  form_custom_edit.ShowModal ;
end;

procedure Tform_main.BitBtn7Click(Sender: TObject);
//显示消费登记窗口
begin
  form_use_dollor.Edit1.Text :='';//清空编辑栏内容
  form_use_dollor.ShowModal ;
end;

procedure Tform_main.BitBtn8Click(Sender: TObject);
//显示部门评价窗口
begin
  form_custom_pj.cid:=0;
  form_custom_pj.Edit1.Text :='';//清空编辑栏内容
  form_custom_pj.ShowModal ;
end;

procedure Tform_main.BitBtn10Click(Sender: TObject);
//显示用户查询窗口
begin
  form_user_list.ShowModal ;
end;

procedure Tform_main.BitBtn11Click(Sender: TObject);
//显示区域查询窗口
begin
  form_area_list.ShowModal ;
end;

procedure Tform_main.BitBtn12Click(Sender: TObject);
//显示消费查询窗口
begin
  form_xf_one.ShowModal ;
end;

procedure Tform_main.BitBtn13Click(Sender: TObject);
//显示服务查询窗口
begin
  form_fw_list.ShowModal ;
end;

procedure Tform_main.BitBtn14Click(Sender: TObject);
//显示累计消费窗口
begin
  form_ljxf.ShowModal ;
end;

procedure Tform_main.BitBtn15Click(Sender: TObject);
//显示部门评价窗口
begin
  form_advice.ShowModal ;
end;

procedure Tform_main.BitBtn16Click(Sender: TObject);
//显示信封打印窗口
begin
   form_letter.ShowModal ;
end;

procedure Tform_main.BitBtn17Click(Sender: TObject);
//显示客户报表窗口
begin
  form_user_rep.ShowModal ;
end;

procedure Tform_main.BitBtn18Click(Sender: TObject);
//显示交易记录窗口
begin
  form_report_jy.ShowModal ;
end;

procedure Tform_main.BitBtn19Click(Sender: TObject);
//显示服务报表窗口
begin
  form_report_fy.ShowModal ;
end;

procedure Tform_main.BitBtn9Click(Sender: TObject);
//显示版本信息窗口
begin
   form_ver.ShowModal ;
end;

end.