uform_main.~pas

Delphi应用婚纱系统 Delphi应用婚纱系统

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

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

type
  Tform_main = class(TForm)
    Panel3: TPanel;
    Panel4: TPanel;
    Panel1: TPanel;
    Panel2: TPanel;
    Image1: TImage;
    Dconnect: TADOConnection;
    RzGroupBar1: TRzGroupBar;
    RzG_input: TRzGroup;
    RzG_output: TRzGroup;
    RzG_cx: TRzGroup;
    RzG_quit: TRzGroup;
    procedure Panel2Resize(Sender: TObject);
    procedure FormCreate(Sender: TObject);

    procedure RzG_inputItems0Click(Sender: TObject);
    procedure RzG_inputItems1Click(Sender: TObject);
    procedure RzG_inputItems8Click(Sender: TObject);
    procedure RzG_inputItems2Click(Sender: TObject);
    procedure RzG_inputItems3Click(Sender: TObject);
    procedure RzG_inputItems4Click(Sender: TObject);
    procedure RzG_inputItems5Click(Sender: TObject);
    procedure RzG_inputItems6Click(Sender: TObject);
    procedure RzG_cxItems0Click(Sender: TObject);
    procedure RzG_cxItems1Click(Sender: TObject);
    procedure RzG_cxItems2Click(Sender: TObject);
    procedure RzG_cxItems3Click(Sender: TObject);
    procedure RzG_cxItems4Click(Sender: TObject);
    procedure RzG_cxItems5Click(Sender: TObject);
    procedure RzG_outputItems0Click(Sender: TObject);
    procedure RzG_outputItems1Click(Sender: TObject);
    procedure RzG_outputItems2Click(Sender: TObject);
    procedure RzG_outputItems3Click(Sender: TObject);
    procedure RzG_inputItems7Click(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';
  panel4.Caption :=application.Hint ;
end;

procedure Tform_main.RzG_inputItems0Click(Sender: TObject);
begin
  form_apart_edit.ShowModal ;
end;

procedure Tform_main.RzG_inputItems1Click(Sender: TObject);
begin
 form_from_edit.ShowModal ;
end;

procedure Tform_main.RzG_inputItems8Click(Sender: TObject);
begin
if Messagebox(0,'欢迎使用本软件。确定退出吗?','退出程序',MB_iconquestion+MB_okcancel) = 1  then
    close();
end;

procedure Tform_main.RzG_inputItems2Click(Sender: TObject);
begin
form_area_edit.ShowModal ;
end;

procedure Tform_main.RzG_inputItems3Click(Sender: TObject);
begin
   form_fw_edit.showmodal;
end;

procedure Tform_main.RzG_inputItems4Click(Sender: TObject);
begin
form_custom_edit.ShowModal ;
end;

procedure Tform_main.RzG_inputItems5Click(Sender: TObject);
begin
  form_use_dollor.Edit1.Text :='';//清空编辑栏内容
  form_use_dollor.ShowModal ;
end;

procedure Tform_main.RzG_inputItems6Click(Sender: TObject);
begin
 form_custom_pj.cid:=0;
  form_custom_pj.Edit1.Text :='';//清空编辑栏内容
  form_custom_pj.ShowModal ;
end;

procedure Tform_main.RzG_cxItems0Click(Sender: TObject);
begin
    form_user_list.ShowModal ;
end;

procedure Tform_main.RzG_cxItems1Click(Sender: TObject);
begin
    form_area_list.ShowModal ;
end;

procedure Tform_main.RzG_cxItems2Click(Sender: TObject);
begin
  form_xf_one.ShowModal ;
end;

procedure Tform_main.RzG_cxItems3Click(Sender: TObject);
begin
   form_fw_list.ShowModal ;
end;

procedure Tform_main.RzG_cxItems4Click(Sender: TObject);
begin
  form_ljxf.ShowModal ;
end;

procedure Tform_main.RzG_cxItems5Click(Sender: TObject);
begin
  form_advice.ShowModal ;
end;

procedure Tform_main.RzG_outputItems0Click(Sender: TObject);
begin
form_letter.ShowModal ;
end;

procedure Tform_main.RzG_outputItems1Click(Sender: TObject);
begin
form_user_rep.ShowModal ;
end;

procedure Tform_main.RzG_outputItems2Click(Sender: TObject);
begin
form_report_jy.ShowModal ;
end;

procedure Tform_main.RzG_outputItems3Click(Sender: TObject);
begin
   form_report_fy.ShowModal ;
end;

procedure Tform_main.RzG_inputItems7Click(Sender: TObject);
begin
  form_ver.ShowModal ;
end;

end.