mrsjbf.pas

这是用Delphi编写的汽车配件管理系统。主要功能有基础信息管理

unit MRSJBF;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, Db, DBTables, StdCtrls, Buttons;

type
  TSJBF = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    BitBtn1: TBitBtn;
    Table1: TTable;
    Table2: TTable;
    Table3: TTable;
    Table4: TTable;
    time1: TTable;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Label3: TLabel;
    Label4: TLabel;
    Table4cpbh: TStringField;
    Table4cpmc: TStringField;
    Table4cpxh: TStringField;
    Table4cpbs: TStringField;
    Table4jsr: TStringField;
    Table4rdate: TDateTimeField;
    Table4danjia: TFloatField;
    Table4dan: TStringField;
    Table4shuliang: TStringField;
    Table4cx: TStringField;
    Table4cd: TStringField;
    Table4khbh: TStringField;
    Table4khqc: TStringField;
    Table4di: TStringField;
    Table4lxdh: TStringField;
    Table4lxr: TStringField;
    Table4sj: TStringField;
    Table4yb: TStringField;
    Table4pi: TFloatField;
    Table4ling: TFloatField;
    Table4jy: TFloatField;
    Table4je: TFloatField;
    Table4ying: TFloatField;
    Table4shi: TFloatField;
    Table4bei: TStringField;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    BitBtn9: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn10: TBitBtn;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Table5: TTable;
    Table6: TTable;
    Table5id: TAutoIncField;
    Table5cpbh: TStringField;
    Table5cpmc: TStringField;
    Table5cpxh: TStringField;
    Table5cpbs: TStringField;
    Table5rdate: TDateTimeField;
    Table5jsr: TStringField;
    Table5dan: TStringField;
    Table5shuliang: TStringField;
    Table5cx: TStringField;
    Table5cd: TStringField;
    Table5khbh: TStringField;
    Table5khqc: TStringField;
    Table5lxdh: TStringField;
    Table5ling: TFloatField;
    Table5je: TFloatField;
    Table5ying: TFloatField;
    Table5bei: TStringField;
    Table6id: TAutoIncField;
    Table6cpbh: TStringField;
    Table6cpmc: TStringField;
    Table6cpxh: TStringField;
    Table6cpbs: TStringField;
    Table6rdate: TDateTimeField;
    Table6jsr: TStringField;
    Table6tdate: TDateTimeField;
    Table6tui: TStringField;
    Table6dan: TStringField;
    Table6shuliang: TStringField;
    Table6cx: TStringField;
    Table6cd: TStringField;
    Table6khbh: TStringField;
    Table6khqc: TStringField;
    Table6lxdh: TStringField;
    Table6pi: TFloatField;
    Table6ling: TFloatField;
    Table6je: TFloatField;
    Table6ying: TFloatField;
    Table6shi: TFloatField;
    Table6bei: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure ComboBox2Click(Sender: TObject);
    procedure ComboBox3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SJBF: TSJBF;

implementation
  var chu,ru,tui:boolean;
{$R *.DFM}

procedure TSJBF.FormCreate(Sender: TObject);
begin
table1.DatabaseName:='moed';
table1.tablename:='chanrk';
table1.open;
table2.databasename:='moed';
table2.tablename:='chanck';
table2.open;
table3.databasename:='moed';
table3.TableName:='chanth';
table3.open;
table4.databasename:='moed';
table4.tablename:='chanrk_bf';
table4.open;
time1.DatabaseName:='moed';
time1.tablename:='bf_time';
time1.open;
table5.databasename:='moed';
table5.tablename:='chanck_bf';
table6.databasename:='moed';
table6.tablename:='chanth_bf';
table6.open;
table5.open;
table4.Filtered:=true;
table5.filtered:=true;
table6.filtered:=true;
end;

procedure TSJBF.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure TSJBF.ComboBox1Click(Sender: TObject);
 var shu:integer;
begin
shu:=0;
case combobox1.ItemIndex of
  0:begin
    time1.Locate('bian','rk1',[Lopartialkey]);
    table4.filter:=format('bei'+'='+'''%s''',[combobox1.text]);
    table4.First;
    while not table4.eof do begin
       table4.next;
       shu:=shu+1;
       end;
    label3.caption:=inttostr(shu);
    label4.caption:=datetostr(time1.fieldbyname('time').asdatetime);
    end;
  1:begin
    time1.locate('bian','rk2',[lopartialkey]);
    table4.filter:=format('bei'+'='+'''%s''',[combobox1.text]);
    table4.First;
    while not table4.eof do begin
      table4.Next;
      shu:=shu+1;
      end;
    label3.caption:=inttostr(shu);
    label4.caption:=datetostr(time1.fieldbyname('time').asdatetime);
    end;
  2:begin
    time1.locate('bian','rk3',[lopartialkey]);
    table4.filter:=format('bei'+'='+'''%s''',[combobox1.text]);
    table4.First;
    while not table4.eof do begin
      table4.Next;
      shu:=shu+1;
      end;
    label3.caption:=inttostr(shu);
    label4.caption:=datetostr(time1.fieldbyname('time').asdatetime);
    end;
  3:begin
    time1.locate('bian','rk4',[lopartialkey]);
    table4.filter:=format('bei'+'='+'''%s''',[combobox1.text]);
    table4.First;
    while not table4.eof do begin
      table4.Next;
      shu:=shu+1;
      end;
    label3.caption:=inttostr(shu);
    label4.caption:=datetostr(time1.fieldbyname('time').asdatetime);
    end;
  4:begin
    time1.locate('bian','rk5',[lopartialkey]);
    table4.filter:=format('bei'+'='+'''%s''',[combobox1.text]);
    table4.First;
    while not table4.eof do begin
      table4.Next;
      shu:=shu+1;
      end;
    label3.caption:=inttostr(shu);
    label4.caption:=datetostr(time1.fieldbyname('time').asdatetime);
    end;

    end;
end;

procedure TSJBF.BitBtn2Click(Sender: TObject);
var shu:integer;
begin
shu:=0;
if table4.Locate('bei',combobox1.text,[lopartialkey]) then begin
if application.messagebox('此库中已有备份记录，是否覆盖？','提醒',mb_yesno)
   =idyes then begin

try
table4.First;
while not table4.eof do begin
   table4.delete;
end;
table1.first;
while not table1.Eof do begin
   table4.Insert;
   table4.fieldbyname('cpbh').asstring:=
      table1.fieldbyname('cpbh').asstring;
   table4.fieldbyname('cpmc').asstring:=
      table1.fieldbyname('cpmc').asstring;
   table4.fieldbyname('cpxh').asstring:=
      table1.fieldbyname('cpxh').asstring;
   table4.fieldbyname('cpbs').asstring:=
      table1.fieldbyname('cpbs').asstring;
   table4.fieldbyname('jsr').asstring:=
      table1.fieldbyname('jsr').asstring;
   table4.fieldbyname('rdate').asdatetime:=
      table1.fieldbyname('rdate').asdatetime;
   table4.fieldbyname('danjia').asinteger:=
      table1.fieldbyname('danjia').asinteger;
   table4.fieldbyname('dan').asstring:=
      table1.fieldbyname('dan').asstring;
   table4.fieldbyname('shuliang').asstring:=
      table1.fieldbyname('shuliang').asstring;
   table4.fieldbyname('cx').asstring:=
      table1.fieldbyname('cx').asstring;
   table4.fieldbyname('cd').asstring:=
      table1.fieldbyname('cd').asstring;
   table4.fieldbyname('khbh').asstring:=
      table1.fieldbyname('khbh').asstring;
   table4.fieldbyname('khqc').asstring:=
      table1.fieldbyname('khqc').asstring;
   table4.fieldbyname('di').asstring:=
      table1.fieldbyname('di').asstring;
   table4.fieldbyname('lxdh').asstring:=
      table1.fieldbyname('lxdh').asstring;
   table4.fieldbyname('jy').asstring:=
      table1.fieldbyname('jy').asstring;
   table4.fieldbyname('je').asinteger:=
      table1.fieldbyname('je').asinteger;
   table4.fieldbyname('ying').asinteger:=
      table1.fieldbyname('ying').asinteger;
   table4.fieldbyname('shi').asinteger:=
      table1.fieldbyname('shi').asinteger;
   table4.fieldbyname('lxr').asstring:=
      table1.fieldbyname('lxr').asstring;
   table4.fieldbyname('sj').asstring:=
      table1.fieldbyname('sj').asstring;
   table4.fieldbyname('yb').asstring:=
      table1.fieldbyname('yb').asstring;
   table4.FieldByName('bei').asstring:=combobox1.text;
     table4.post;
     table1.next;
       shu:=shu+1;
   end;
   case combobox1.ItemIndex of
     0:begin
        time1.Locate('bian','rk1',[lopartialkey]);
        time1.edit;
        time1.fieldbyname('time').asdatetime:=date;
        time1.Post;
        end;
     1:begin
        time1.locate('bian','rk2',[lopartialkey]);
        time1.edit;
        time1.fieldbyname('time').asdatetime:=date;
        time1.post;
        end;
     2:begin
        time1.Locate('bian','rk3',[lopartialkey]);
        time1.edit;
        time1.fieldbyname('time').asdatetime:=date;
        time1.Post;
        end;
     3:begin
        time1.Locate('bian','rk4',[lopartialkey]);
        time1.edit;
        time1.fieldbyname('time').asdatetime:=date;
        time1.Post;
        end;
     4:begin
        time1.Locate('bian','rk5',[lopartialkey]);
        time1.edit;
        time1.fieldbyname('time').asdatetime:=date;
        time1.Post;
        end;
     end;
    label3.caption:=inttostr(shu);
    label4.caption:=datetostr(time1.fieldbyname('time').asdatetime);
chu:=true;
showmessage('数据备份成功。');
except on exception do showmessage('数据有误，不能备份。');
end;
end;
end
else begin
try
table4.First;
while not table4.eof do begin
   table4.delete;
end;
table1.first;
while not table1.Eof do begin
   table4.Insert;
   table4.fieldbyname('cpbh').asstring:=
      table1.fieldbyname('cpbh').asstring;
   table4.fieldbyname('cpmc').asstring:=
      table1.fieldbyname('cpmc').asstring;
   table4.fieldbyname('cpxh').asstring:=
      table1.fieldbyname('cpxh').asstring;
   table4.fieldbyname('cpbs').asstring:=
      table1.fieldbyname('cpbs').asstring;
   table4.fieldbyname('jsr').asstring:=
      table1.fieldbyname('jsr').asstring;
   table4.fieldbyname('rdate').asdatetime:=
      table1.fieldbyname('rdate').asdatetime;
   table4.fieldbyname('danjia').asinteger:=
      table1.fieldbyname('danjia').asinteger;
   table4.fieldbyname('dan').asstring:=
      table1.fieldbyname('dan').asstring;
   table4.fieldbyname('shuliang').asstring:=
      table1.fieldbyname('shuliang').asstring;
   table4.fieldbyname('cx').asstring:=
      table1.fieldbyname('cx').asstring;
   table4.fieldbyname('cd').asstring:=
      table1.fieldbyname('cd').asstring;
   table4.fieldbyname('khbh').asstring:=
      table1.fieldbyname('khbh').asstring;
   table4.fieldbyname('khqc').asstring:=
      table1.fieldbyname('khqc').asstring;
   table4.fieldbyname('di').asstring:=
      table1.fieldbyname('di').asstring;
   table4.fieldbyname('lxdh').asstring:=
      table1.fieldbyname('lxdh').asstring;
   table4.fieldbyname('jy').asstring:=
      table1.fieldbyname('jy').asstring;
   table4.fieldbyname('je').asinteger:=
      table1.fieldbyname('je').asinteger;
   table4.fieldbyname('ying').asinteger:=
      table1.fieldbyname('ying').asinteger;
   table4.fieldbyname('shi').asinteger:=
      table1.fieldbyname('shi').asinteger;
   table4.fieldbyname('lxr').asstring:=
      table1.fieldbyname('lxr').asstring;
   table4.fieldbyname('sj').asstring:=
      table1.fieldbyname('sj').asstring;
   table4.fieldbyname('yb').asstring:=
      table1.fieldbyname('yb').asstring;
   table4.fieldbyname('bei').asstring:=combobox1.text;
     table4.post;
     table1.next;
     shu:=shu+1;
   end;
   case combobox1.ItemIndex of
     0:begin
        time1.Locate('bian','rk1',[lopartialkey]);
        time1.edit;
        time1.fieldbyname('time').asdatetime:=date;
        time1.Post;
        end;
     1:begin
        time1.locate('bian','rk2',[lopartialkey]);
        time1.edit;
        time1.fieldbyname('time').asdatetime:=date;
        time1.post;
        end;
     2:begin