main.pas

来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· PAS 代码 · 共 1,127 行 · 第 1/3 页

    fieldvalues['TotalPrice']:=Edit4.Text;
    fieldvalues['NetSalvage']:=Edit6.Text;
    fieldvalues['Static']:=ComboBox2.Text;
    post;
    update;
    Edit1.Text:='';    Edit2.Text:='0.0';  Edit3.Text:='';
    Edit4.Text:='0.0'; Edit6.Text:='0.0';  Edit8.Text:='0.0';
  end;
end;

procedure TMainFrm.Edit4Click(Sender: TObject);
begin
  Edit4.Text:=floattostr(strtofloat(Edit2.Text)*strtofloat(Edit8.Text));
end;

procedure TMainFrm.BitBtn15Click(Sender: TObject);
var Info:textfile;
    NameInfo,ManInfo,TelInfo,FaxInfo,CodeInfo,AddInfo,PageInfo:string;
begin
  NameInfo:=Edit5.Text;
  ManInfo:=Edit7.Text;
  TelInfo:=Edit9.Text;
  FaxInfo:=Edit10.Text;
  CodeInfo:=Edit11.Text;
  AddInfo:=Edit12.Text;
  PageInfo:=Edit14.Text;
  assignfile(Info,'.\Info.cfg');
  ReWrite(Info);
  Writeln(Info,NameInfo);
  Writeln(Info,ManInfo);
  Writeln(Info,TelInfo);
  Writeln(Info,FaxInfo);
  Writeln(Info,CodeInfo);
  Writeln(Info,AddInfo);
  Writeln(Info,PageInfo);
  closefile(Info);
end;

procedure TMainFrm.BitBtn2Click(Sender: TObject);
begin
  PageControl1.ActivePage:=TabSheet0;
end;

procedure TMainFrm.BitBtn16Click(Sender: TObject);
var PswOld,PswNew:string;
    pwdfile:textfile;
begin
    assignfile(pwdfile,'.\Psw.cfg');
    reset(pwdfile);
    readln(pwdfile,PswOld);
    closefile(pwdfile);
    if Edit13.Text<>PswOld then
       MessageDlg('对不起，您输入的原密码错误！',mtInformation,[mbOk],0)
    else
       begin
         if Edit15.Text<>Edit16.Text then
            MessageDlg('对不起，您输入的新密码错误！',mtInformation,[mbOk],0)
         else
            begin
               PswNew:=Edit15.Text;
               assignfile(pwdfile,'.\Psw.cfg');
               rewrite(pwdfile);
               Writeln(pwdfile,PswNew);
               closefile(pwdfile);
               MessageDlg('成功修改！',mtInformation,[mbOk],0);
            end;
       end;
end;

procedure TMainFrm.BitBtn6Click(Sender: TObject);
begin
  PageControl1.ActivePage:=TabSheet0;
end;

procedure TMainFrm.ComboBox3Change(Sender: TObject);
var i:integer;
begin
  with Table1 do
    begin
     close;
     open;
     first;
     for i:=1 to recordcount do
        begin
          if fieldbyname('AssetName').asstring=ComboBox3.Text then
             Edit20.Text:=fieldbyname('Static').asstring;
          next;
        end;
     end;
   if  Edit20.Text<>'未使用' then
       begin
         MessageDlg('该资产目前不能借用！',mtInformation,[mbOk],0);
         BitBtn18.Enabled:=False;
       end
   else
       BitBtn18.Enabled:=True;
end;

procedure TMainFrm.BitBtn18Click(Sender: TObject);
var i:integer;
begin
 with Table2 do
   begin
    close;
    open;
    last;
    append;
    fieldvalues['AssetName']:=ComboBox3.Text;
    fieldvalues['BorrowMan']:=Edit17.Text;
    fieldvalues['BorrowDate']:=DatetoStr(DateTimePicker2.Date);
    fieldvalues['ReturnDate']:='   ';
    fieldvalues['DealMan']:=Edit18.Text;
    fieldvalues['Use']:=Edit19.Text;
    post;
    update;
    Edit17.Text:='';    Edit18.Text:='0.0';  Edit19.Text:='';
  end;
  with Table1 do
    begin
     close;
     open;
     first;
     for i:=1 to recordcount do
        begin
          if fieldbyname('AssetName').asstring=ComboBox3.Text then
              begin
                edit;
                fieldvalues['Static']:='使用中';
                post;
              end;
          next;
        end;
     end;
end;

procedure TMainFrm.BitBtn19Click(Sender: TObject);
var i:integer;
begin
   with Table2 do
    begin
     close;
     open;
     first;
     for i:=1 to recordcount do
        begin
          if fieldbyname('AssetName').asstring=DbEdit1.Text then
              begin
                if fieldbyname('ReturnDate').asstring<>'   ' then
                   begin
                     MessageDlg('该资产已经归还！',mtInformation,[mbOk],0);
                     Exit;
                   end
                else
                   begin
                      edit;
                      fieldvalues['ReturnDate']:=DatetoStr(DateTimePicker3.Date);
                      post;
                      MessageDlg('该资产成功归还！',mtInformation,[mbOk],0);
                   end;
              end;
          next;
        end;
     end;
 with Table1 do
    begin
     close;
     open;
     first;
     for i:=1 to recordcount do
        begin
          if fieldbyname('AssetName').asstring=DbEdit1.Text then
              begin
                edit;
                fieldvalues['Static']:='未使用';
                post;
              end;
          next;
        end;
     end;
end;


procedure TMainFrm.BitBtn23Click(Sender: TObject);
Var i:integer;
begin
  DBEdit6.Text:=ComboBox4.Text;
  with Table10 do
    begin
     close;
     open;
     first;
     for i:=1 to recordcount do
       begin
         if fieldbyname('AssetName').asstring=DBEdit2.Text then
            begin
              edit;
              fieldvalues['Static']:=DBEdit6.Text;
              post;
              MessageDlg('该资产成功更改！',mtInformation,[mbOk],0);
              Exit;
            end;
         next;
       end;
    end;
end;

procedure TMainFrm.BitBtn4Click(Sender: TObject);
begin
with Table3 do
   begin
    last;
    append;
    fieldvalues['Name']:=Edit22.Text;
    fieldvalues['Type']:=Edit24.Text;
    fieldvalues['Spec']:=Edit21.Text;
    fieldvalues['Weight']:=Edit27.Text;
    fieldvalues['Pruducer']:=Edit25.Text;
    fieldvalues['PruductNo']:=Edit26.Text;
    fieldvalues['PutInDate']:=DatetoStr(DateTimePicker4.Date);
    fieldvalues['UseUnit']:=Edit28.Text;
    if ComboBox5.Text='是' then
          fieldvalues['Import']:=True
    else  fieldvalues['Import']:=False;
    if ComboBox6.Text='是' then
          fieldvalues['Digital']:=True
    else  fieldvalues['Digital']:=False;
    fieldvalues['Quantity']:=Edit23.Text;
    post;
    update;
    Edit21.Text:=''; Edit22.Text:='';  Edit23.Text:=''; Edit27.Text:='';
    Edit24.Text:=''; Edit25.Text:='';  Edit26.Text:=''; Edit28.Text:='';
  end;
end;

procedure TMainFrm.ComboBox7Change(Sender: TObject);
var i:integer;
begin
  with Table3 do
    begin
     close;
     open;
     first;
     for i:=1 to recordcount do
        begin
          if fieldbyname('EquID').asstring=ComboBox7.Text then
              begin
                Edit30.Text:=fieldbyname('Name').asstring;
                Edit29.Text:=fieldbyname('UseUnit').asstring;
              end;
          next;
        end;
     end;
end;

procedure TMainFrm.BitBtn8Click(Sender: TObject);
begin
 with Table4 do
   begin
    last;
    append;
    fieldvalues['EquID']:=ComboBox7.Text;
    fieldvalues['Name']:=Edit30.Text;
    fieldvalues['UseUnit']:=Edit29.Text;
    fieldvalues['FaultTime']:=DatetoStr(DateTimePicker5.Date);
    fieldvalues['RecoverTime']:=DatetoStr(DateTimePicker6.Date);
    fieldvalues['RepairMoney']:=Edit33.Text;
    fieldvalues['ReapirMan']:=Edit36.Text;
    post;
    update;
    Edit29.Text:=''; Edit30.Text:='';  Edit33.Text:=''; Edit36.Text:='';
  end;
end;

procedure TMainFrm.FormShow(Sender: TObject);
begin
  LoginFrm.show;
  MainFrm.Enabled:=False;
end;

procedure TMainFrm.TreeView1Click(Sender: TObject);
var MothNode:ttreenode;
    Info:textfile;
    i,j,CountFlag,flag:integer;
    AssetsName,EquID,WorkerID,CourseName:array[1..1000]of string;
    NameInfo,ManInfo,TelInfo,FaxInfo,CodeInfo,AddInfo,PageInfo,CourseNameTemp:string;
begin
   with Treeview1.Selected do
     begin
      MothNode:=Treeview1.selected;
      with PageControl1 do
       begin
        case MothNode.SelectedIndex of
        0,1,2,3,4,5,6,7,8,9,10:ActivePage:=TabSheet0;
        11:begin
             ActivePage:=TabSheet1;
             assignfile(Info,'.\Info.cfg');
             reset(Info);
             readln(Info,NameInfo);
             readln(Info,ManInfo);
             readln(Info,TelInfo);
             readln(Info,FaxInfo);
             readln(Info,CodeInfo);
             readln(Info,AddInfo);
             readln(Info,PageInfo);
             closefile(Info);
             Edit5.Text:=NameInfo;
             Edit7.Text:=ManInfo;
             Edit9.Text:=TelInfo;
             Edit10.Text:=FaxInfo;
             Edit11.Text:=CodeInfo;
             Edit12.Text:=AddInfo;
             Edit14.Text:=PageInfo;
           end;
        12:ActivePage:=TabSheet2;
        21:ActivePage:=TabSheet3;
        22:ActivePage:=TabSheet4;
        23:ActivePage:=TabSheet5;
        24:begin
             ActivePage:=TabSheet6;
             with Table1 do
               begin
                  close;
                  open;
                  first;
                  for i:=1 to recordcount do
                     begin
                       AssetsName[i]:=fieldbyname('AssetName').asstring;
                       next;
                     end;
                  ComboBox3.Clear;
                  for i:=1 to  recordcount do
                       ComboBox3.items.insert(-1,AssetsName[i]);
                  BitBtn18.Enabled:=False;
                 end;
           end;
        31:ActivePage:=TabSheet7;
        32:ActivePage:=TabSheet8;
        33:ActivePage:=TabSheet9;
        34:begin
            ActivePage:=TabSheet10;
            with Table3 do
               begin
                  close;
                  open;
                  first;
                  for i:=1 to recordcount do
                     begin
                       EquID[i]:=fieldbyname('EquID').asstring;
                       next;
                     end;
                  ComboBox7.Clear;
                  for i:=1 to  recordcount do
                       ComboBox7.items.insert(-1,EquID[i]);
                 end;
            end;
        41:ActivePage:=TabSheet11;
        42:ActivePage:=TabSheet12;
        51:ActivePage:=TabSheet13;
        52:ActivePage:=TabSheet14;
        53:begin
            ActivePage:=TabSheet17;
            with Table6 do
              begin
               close;
               open;
               first;
               for i:=1 to recordcount do
                 begin
                  WorkerID[i]:=fieldbyname('WorkerID').asstring;
                  next;
                 end;
               ComboBox8.Clear;
               for i:=1 to  recordcount do
               ComboBox8.items.insert(-1,WorkerID[i]);
              end;
            with Table5 do