unit1.pas

档案管理系统,档案管理系统vb+access源代码+可执行文件+论文+开题报告+外文翻译..

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, Grids, DBGridEh, DB, DBTables, ActnList,
  ImgList, StdCtrls, Buttons, Mask, DBCtrls, ToolWin, DBActns, StdActns,
  DBCtrlsEh, DBLookupEh, ExtDlgs;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel3: TPanel;
    ImageList1: TImageList;
    ActionList1: TActionList;
    DataSource1: TDataSource;
    Table1: TTable;
    GroupBox2: TGroupBox;
    Table1DangAnBianHao: TStringField;
    Table1XingMin: TStringField;
    Table1XingBie: TStringField;
    Table1NianLing: TStringField;
    Table1ChuShenNianYue: TDateField;
    Table1ShenFenZhengHao: TStringField;
    Table1ZhengZhiMianMao: TStringField;
    Table1MinZu: TStringField;
    Table1JiGuan: TStringField;
    Table1XueLi: TStringField;
    Table1BiYeXueXiao: TStringField;
    Table1GangWeiZhongLei: TStringField;
    Table1GangWeiJiBie: TStringField;
    Table1ZhiWei: TStringField;
    Table1ZhiCheng: TStringField;
    Table1JiaTingZhuZhi: TStringField;
    Table1LianXiDianHua: TStringField;
    Table1XueXiJingLi: TStringField;
    Table1GongZuoJingLi: TStringField;
    Table1PeiXunJingLi: TStringField;
    Table1RenZhiJiLu: TStringField;
    Table1JiaTingZhuangKuang: TStringField;
    Table1JiNengTeChang: TStringField;
    Table1XingQuAiHao: TStringField;
    Table1QianYueHeTongHao: TStringField;
    Table1ZhongZhiHeTong: TDateField;
    Table1SuoSuBuMen: TStringField;
    Table1BuMenBianHao: TStringField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    Label11: TLabel;
    DBEdit11: TDBEdit;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    DBEdit16: TDBEdit;
    Label17: TLabel;
    DBEdit17: TDBEdit;
    Label18: TLabel;
    Label19: TLabel;
    DBEdit19: TDBEdit;
    Label20: TLabel;
    DBEdit20: TDBEdit;
    Table1ZhaoPian: TGraphicField;
    Label21: TLabel;
    DBImage2: TDBImage;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    DBGridEh1: TDBGridEh;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    DataSetFirst1: TDataSetFirst;
    DataSetLast1: TDataSetLast;
    DataSetPrior1: TDataSetPrior;
    Action1: TAction;
    DataSetNext1: TDataSetNext;
    DataSetInsert1: TDataSetInsert;
    DataSetDelete1: TDataSetDelete;
    DataSetEdit1: TDataSetEdit;
    DataSetPost1: TDataSetPost;
    DataSetCancel1: TDataSetCancel;
    DataSetRefresh1: TDataSetRefresh;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    WindowClose1: TWindowClose;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn7: TBitBtn;
    Label26: TLabel;
    DBMemo6: TDBMemo;
    DBMemo2: TDBMemo;
    DBMemo3: TDBMemo;
    DBMemo4: TDBMemo;
    DBMemo5: TDBMemo;
    DBMemo7: TDBMemo;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    DataSource2: TDataSource;
    Table2: TTable;
    DBLookupComboboxEh1: TDBLookupComboboxEh;
    DBLookupComboboxEh2: TDBLookupComboboxEh;
    DataSource3: TDataSource;
    Table3: TTable;
    DBDateTimeEditEh1: TDBDateTimeEditEh;
    DBLookupComboboxEh3: TDBLookupComboboxEh;
    DataSource4: TDataSource;
    Table4: TTable;
    DataSource5: TDataSource;
    Table5: TTable;
    DBLookupComboboxEh4: TDBLookupComboboxEh;
    DBLookupComboboxEh5: TDBLookupComboboxEh;
    DBLookupComboboxEh6: TDBLookupComboboxEh;
    DBLookupComboboxEh7: TDBLookupComboboxEh;
    DBLookupComboboxEh8: TDBLookupComboboxEh;
    DataSource6: TDataSource;
    DataSource7: TDataSource;
    DataSource8: TDataSource;
    DataSource9: TDataSource;
    Table6: TTable;
    Table7: TTable;
    Table8: TTable;
    Table9: TTable;
    Label27: TLabel;
    DBEdit5: TDBEdit;
    Table1JiangChengQK: TStringField;
    BitBtn11: TBitBtn;
    DBComboBox1: TDBComboBox;
    DBLookupComboboxEh9: TDBLookupComboboxEh;
    Label28: TLabel;
    OpenPictureDialog1: TOpenPictureDialog;
    procedure FormCreate(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure BitBtn5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure DBImage2DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses LookUp, BaoBiao, MingCe;


{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  table1.Active:=true;
  table2.Active:=true;
  table3.Active:=true;
  table4.Active:=true;
  table5.Active:=true;
  table6.Active:=true;
  table7.Active:=true;
  table8.Active:=true;
  table9.Active:=true;
  label23.Caption:=Datetostr(date());
  label25.Caption:=inttostr(table1.recordcount);
end;

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
 label25.Caption:=inttostr(table1.RecordCount);
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
  self.Close;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  table1.Active:=false;
  table2.Active:=false;
  table3.Active:=false;
  table4.Active:=false;
  table5.Active:=false;
  table6.Active:=false;
  table7.Active:=false;
  table8.Active:=false;
  table9.Active:=false;
  if Table1.State in [dsedit,dsinsert] Then Application.MessageBox('是否要保存结果','提示',idok);
end;

procedure TForm1.BitBtn7Click(Sender: TObject);
begin
  Table1.Post;
  BitBtn6.Enabled := True;
  BitBtn9.Enabled := True;
  BitBtn7.Enabled := False;
  BitBtn10.Enabled := False;
  BitBtn8.Enabled := True;
  BitBtn11.Enabled := True;
  end;

procedure TForm1.BitBtn10Click(Sender: TObject);
begin
  table1.Cancel;
  BitBtn6.Enabled := True;
  BitBtn9.Enabled := True;
  BitBtn10.Enabled := False;
  BitBtn7.Enabled := False;
  BitBtn8.Enabled := True;
  BitBtn11.Enabled := True;
end;

procedure TForm1.BitBtn8Click(Sender: TObject);
begin
  if Table1.RecordCount > 0 then
    try
      if Application.MessageBox('真的要删除吗？','警告',MB_OKCANCEL +MB_ICONQUESTION)=idok then
        Table1.Delete;
    except
      Table1.Cancel;
    end
end;

procedure TForm1.BitBtn9Click(Sender: TObject);
begin
  Table1.Append;
  DBEdit1.SetFocus;
  BitBtn7.Enabled := True;
  BitBtn10.Enabled := True;
  BitBtn6.Enabled := False;
  BitBtn8.Enabled := False;
  BitBtn11.Enabled := False;
end;

procedure TForm1.BitBtn6Click(Sender: TObject);
begin
  Table1.Insert;
  BitBtn9.Enabled := False;
  BitBtn7.Enabled := True;
  BitBtn10.Enabled := True;
  BitBtn8.Enabled := False;
  BitBtn11.Enabled := False;
end;

procedure TForm1.BitBtn11Click(Sender: TObject);
begin
  Table1.Edit;
  DBGridEh1.ReadOnly := False;
  BitBtn6.Enabled := False;
  BitBtn8.Enabled := False;
  BitBtn9.Enabled := False;
  BitBtn7.Enabled := True;
  BitBtn10.Enabled := True;
end;

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
with Tform2.Create(nil) do
  begin
  ShowModal;
  Free;
  end;
end;

procedure TForm1.ToolButton2Click(Sender: TObject);
Var
  HuaMingCe:THuaMingCe;
begin
  HuaMingCe:=THuaMingCe.Create(application);
  HuaMingCe.QuickRep1.PreviewModal;
end;

procedure TForm1.DBImage2DblClick(Sender: TObject);
begin
  If OpenPictureDialog1.Execute Then
    DBImage2.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

end.