unit1.pas

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzGroupBar, ExtCtrls, RzPanel, jpeg, WinSkinData, DB, ADODB;

type
  TForm1 = class(TForm)
    RzPanel1: TRzPanel;
    RzGroupBar1: TRzGroupBar;
    RzPanel2: TRzPanel;
    RzG_input: TRzGroup;
    RzG_output: TRzGroup;
    RzG_cx: TRzGroup;
    RzG_quit: TRzGroup;
    Image1: TImage;
    SkinData1: TSkinData;
    ADOConnection1: TADOConnection;
    procedure RzGroup1Items0Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

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 TForm1.RzGroup1Items0Click(Sender: TObject);
begin
   form_apart_edit.ShowModal ;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(ParamStr(0))+'db\database.mdb;Persist Security Info=False';
 end;


end.