unit1.pas

来自「用delphi开发的户籍管理系统」· PAS 代码 · 共 226 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, DBCtrls, ExtCtrls, Menus, DB, DBTables,
  ADODB,ADOConEd;

type
  Tmain_Form = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    O1: TMenuItem;
    C1: TMenuItem;
    N2: TMenuItem;
    A1: TMenuItem;
    M1: TMenuItem;
    D1: TMenuItem;
    l1: TMenuItem;
    N3: TMenuItem;
    F1: TMenuItem;
    N4: TMenuItem;
    H1: TMenuItem;
    DBNavigator1: TDBNavigator;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBText4: TDBText;
    DBText5: TDBText;
    DBText6: TDBText;
    DBText7: TDBText;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    DBText8: TDBText;
    DBText9: TDBText;
    DBText10: TDBText;
    DBText11: TDBText;
    DBMemo1: TDBMemo;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    N5: TMenuItem;
    DataSource1: TDataSource;
    Table1: TTable;
    DBGrid1: TDBGrid;
    N12: TMenuItem;
    N6: TMenuItem;
    ADODataSet1: TADODataSet;
    Label3: TLabel;
    Label2: TLabel;
    Label1: TLabel;
    DBText1: TDBText;
    DBText3: TDBText;
    DBText2: TDBText;
    DBImage1: TDBImage;
    procedure Button1Click(Sender: TObject);
    procedure O1Click(Sender: TObject);
   
   
    procedure l1Click(Sender: TObject);
    procedure A1Click(Sender: TObject);
    procedure M1Click(Sender: TObject);
    procedure D1Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure SQL1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure C1Click(Sender: TObject);
   
   
  private
    { Private declarations }
  public
    { Public declarations }


  end;

var
  main_Form: Tmain_Form;


implementation
   uses unit2,unit3,unit4,shanchu,chaxun,unit7,unit8,unit9;
{$R *.dfm}

procedure Tmain_Form.Button1Click(Sender: TObject);
begin
 close; 
end;

//文件打开
procedure Tmain_Form.O1Click(Sender: TObject);
begin
  opendialog1.Execute;
end;



//浏览
procedure Tmain_Form.l1Click(Sender: TObject);
begin
 datamodule2.huZhu_Table1.Open;
 datamodule2.Query1.Close;
 {datamodule2.Query1.SQL.Clear;
 with datamodule2.Query1 do
 begin
   sql.Add('select chengyuan* from chengyuan');
   sql.Add('where chengyuan.户主=:ql');
   parambyname('ql').AsString:=dbtext1.Caption;
   Prepare;
   Open;
 end; }
 datamodule2.Query1.Prepare;
 datamodule2.Query1.Open;
end;

//增加记录
procedure Tmain_Form.A1Click(Sender: TObject);
begin
  form3:=tform3.Create(self);
  form3.Show;
end;

//修改记录
procedure Tmain_Form.M1Click(Sender: TObject);
begin
  form4:=tform4.Create(self);
  form4.Show;
end;

//删除记录
procedure Tmain_Form.D1Click(Sender: TObject);
begin
  form5:=tform5.Create(self);
  form5.Show;
end;

//窗体查询
procedure Tmain_Form.N5Click(Sender: TObject);
begin
  form6:=tform6.Create(self);
  form6.Show;
end;

//SQL查询
procedure Tmain_Form.SQL1Click(Sender: TObject);
begin
  form7:=tform7.Create(self);
  form7.Show;
end;

//定位
procedure Tmain_Form.N3Click(Sender: TObject);
begin
  form8:=tform8.Create(self);
  form8.Show;
end;

//配制数据库

procedure Tmain_Form.N6Click(Sender: TObject);
begin
 //EditConnectionString(DataHJZL.ADOCnHJGL);
end;
                                        
//窗体-修改
procedure Tmain_Form.N7Click(Sender: TObject);
begin
  form4:=tform4.Create(self);
  form4.Show;
end;

//窗体-删除
procedure Tmain_Form.N8Click(Sender: TObject);
begin
  form5:=tform5.Create(self);
  form5.Show;
end;

//窗体-浏览
procedure Tmain_Form.N9Click(Sender: TObject);
begin
  main_form.Show;
end;

//窗体-定位
procedure Tmain_Form.N10Click(Sender: TObject);
begin
  form8:=tform8.Create(self);
  form8.Show;
end;

//窗体-窗体查询
procedure Tmain_Form.N11Click(Sender: TObject);
begin
  form6:=tform6.Create(self);
  form6.Show;
end;


//版本信息
procedure Tmain_Form.N12Click(Sender: TObject);
begin
  form9:=tform9.Create(self);
  form9.Show;
end;

procedure Tmain_Form.C1Click(Sender: TObject);
begin
 close;
end;

end.