unit3.~pas

这是用Delphi编写的车辆管理系统。主要功能有档案管理

     combobox2.Text:=fieldbyname('driver').AsString;
     datetimepicker1.DateTime:=fieldbyname('bydate').AsDateTime;
     edit2.Text:=inttostr(fieldbyname('carload').Value);
     edit3.Text:=inttostr(fieldbyname('seat').value);
     edit4.Text:=inttostr(fieldbyname('FadongjiNU').value);
     edit5.Text:=inttostr(fieldbyname('chejianum').value);
     checkbox1.Checked:=fieldbyname('nianjian').AsBoolean;
     checkbox2.Checked:=fieldbyname('baoxian').AsBoolean;
     edit6.Text:=fieldbyname('changpaiXH').AsString;
     edit7.Text:=fieldbyname('Humorunit').AsString;
     edit8.Text:=fieldbyname('Inunit').AsString;
     memo1.Text:=fieldbyname('memo').AsString;
     inorupno:=recno; //当前记录
     end;
end;

procedure TCarDanganLR.Panel1Click(Sender: TObject);
begin
if not datamodule2.CardanganQ.Bof then
editshow(1)
else showmessage('已经是首记录了');
end;

procedure TCarDanganLR.Panel2Click(Sender: TObject);
begin
if not datamodule2.CardanganQ.Bof then
editshow(2)
else
showmessage('您已经在首记录了！！');
end;

procedure TCarDanganLR.Panel3Click(Sender: TObject);
begin
if not datamodule2.CardanganQ.Eof then
editshow(3)
else showmessage('这已经是最后一条记录');

end;

procedure TCarDanganLR.Panel4Click(Sender: TObject);
begin
if not datamodule2.CardanganQ.Eof then
editshow(4)
else showmessage('已经是末记录');
end;

procedure TCarDanganLR.Panel6Click(Sender: TObject);
begin
if datamodule2.CardanganQ.RecordCount > 0  then
begin
insertorupdate:=false;
editreadonly:=false;
chkedit;
edit1.SetFocus;
end
else showmessage('无记录');
end;

procedure TCarDanganLR.Panel8Click(Sender: TObject);
begin
insertorupdate:=true;
editreadonly:=true;
chkedit;
cardanganlr.FormShow(sender);
end;

procedure TCarDanganLR.Panel5Click(Sender: TObject);
begin
if editreadonly then
 begin
  edit1.text:='';
  edit2.text:='';
  edit3.text:='';
  edit4.text:='';
  edit5.text:='';
  edit6.text:='';
  edit7.text:='';
  edit8.text:='';
  combobox1.ItemIndex:=0;
  combobox2.ItemIndex:=0;
  checkbox1.Checked:=false;
  checkbox2.checked:=false;
  datetimepicker1.DateTime:=now;
  memo1.Text:='';
  editreadonly:=false;
  chkedit;
  edit1.SetFocus
 end
  else
    begin
  if insertorupdate then                   //添加
     begin
    if (trim(edit1.Text)='') or (trim(combobox2.Text)='') or (trim(edit7.Text)='') then
       showmessage('车牌号码，驾驶员，使用人或单位不能为空!')
         else
          begin
          with datamodule2.CardanganQ do
             begin
             close;
             sql.Clear;
             sql.Add('select * from cardangan.dbf where carnum=:car or fadongjinu=:fdj');
             parambyname('car').AsString:=edit1.Text;
             parambyname('fdj').AsCurrency:=strtoint(edit4.Text);
             open;
             if  datamodule2.CardanganQ.RecordCount < 1 then    //判断是否有次记录
             begin
             cardanganlr.editzero;
             close;
             sql.Clear;
             sql.Add('insert into cardangan.dbf');
             sql.Add(' (CarNum,carclass,driver,bydate,fadongjinu,chejianum,');
             sql.Add('changpaixh,carload,seat,humorunit,inunit,nianjian,baoxian,');
             sql.Add('yidong,baofei,memo)');
             sql.Add('  values(:Num1,:class1,:driver1,:bydate,:fadongjinu,:chejianum,');
             sql.Add(':changpainm,:load,:seat,:humorunit1,:inunit,:nianshen,:baoxian,');
             sql.Add(':yidong,:baofei,:memo1)');
             parambyname('num1').AsString:=edit1.Text;
             parambyname('class1').AsString:=combobox1.Text;
             parambyname('driver1').AsString:=combobox2.Text;
             parambyname('bydate').AsDate:=datetimepicker1.Date;
             parambyname('load').AsCurrency:=strtoint(edit2.Text);
             parambyname('fadongjinu').AsCurrency:=strtoint(edit4.Text);
             parambyname('chejianum').AsCurrency:=strtoint(edit5.Text);
             parambyname('changpainm').AsString:=edit6.Text;
             parambyname('seat').AsCurrency:=strtoint(edit3.Text);
             parambyname('nianshen').AsBoolean:=checkbox1.Checked;
             parambyname('baoxian').AsBoolean:=checkbox1.Checked;
             parambyname('yidong').AsBoolean:=false;
             parambyname('baofei').AsBoolean:=false;
             parambyname('humorunit1').AsString:=edit7.Text;
             parambyname('inunit').AsString:=edit8.Text;
             parambyname('memo1').AsString:=memo1.Text;
             execsql;
             end
              else showmessage('记录已经存在');
             end;
          cardanganlr.FormShow(sender);
          editreadonly:=true;
          chkedit;
          end;
      end
      else
         if messagebox(cardanganlr.Handle,'确定要修改此记录吗','提示',MB_YESNO)=ID_YES then
      begin                     //修改
      with datamodule2.CardanganQ do
             begin
             cardanganlr.editzero;
             close;
             sql.Clear;
             sql.Add('update cardangan.dbf set');
             sql.Add('CarNum=(:Num1),carclass=(:class1),driver=(:driver1),bydate=(:bydate),fadongjinu=(:fadongjinu),chejianum=(:chejianum),');
             sql.Add('changpaixh=(:changpainm),carload=(:load),seat=(:seat),humorunit=(:humorunit1),inunit=(:inunit),nianjian=(:nianshen),baoxian=(:baoxian),');
             sql.Add('memo=(:memo1)');
             sql.Add('  where carnum=:oldCarnum');
             parambyname('oldcarnum').AsString:=carname;
             parambyname('num1').AsString:=edit1.Text;
             parambyname('class1').AsString:=combobox1.Text;
             parambyname('driver1').AsString:=combobox2.Text;
             parambyname('bydate').AsDate:=datetimepicker1.Date;
             parambyname('load').AsCurrency:=strtoint(edit2.Text);
             parambyname('fadongjinu').AsCurrency:=strtoint(edit4.Text);
             parambyname('chejianum').AsCurrency:=strtoint(edit5.Text);
             parambyname('changpainm').AsString:=edit6.Text;
             parambyname('seat').AsCurrency:=strtoint(edit3.Text);
             parambyname('nianshen').AsBoolean:=checkbox1.Checked;
             parambyname('baoxian').AsBoolean:=checkbox2.Checked;
             //parambyname('yidong').AsBoolean:=false;
             // parambyname('baofei').AsBoolean:=false;
             parambyname('humorunit1').AsString:=edit7.Text;
             parambyname('inunit').AsString:=edit8.Text;
             parambyname('memo1').AsString:=memo1.Text;
             execsql;
             end;
          insertorupdate:=true;
          cardanganlr.FormShow(sender);
          editreadonly:=true;;
          chkedit;
      end;
  end;
end;

procedure TCarDanganLR.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
editreadonly:=true;
chkedit;
datamodule2.CardanganQ.Close;
end;



procedure TCarDanganLR.Panel7Click(Sender: TObject);
begin
if (trim(edit1.Text) <>'') and  (messagebox(cardanganlr.Handle,'确定要删除吗?','提示',MB_YESNO) = ID_YES) then
  begin
with datamodule2.CardanganQ do
       begin
       close;
       sql.Clear;
       sql.Add('delete from cardangan.dbf where carnum=:carnumd');
       parambyname('carnumd').value:=edit1.Text;
       execsql;
       end;
    cardanganlr.FormShow(sender);
    chkedit;
   end;
end;
procedure TCarDanganLR.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 edit4.SetFocus
 else
 if not (key in ['0'..'9',Chr(vk_Back)]) then
key:=#0;
end;

procedure TCarDanganLR.ComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 datetimepicker1.SetFocus;
end;

procedure TCarDanganLR.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 combobox2.SetFocus
 else key:=#0;
end;

procedure TCarDanganLR.DateTimePicker1KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=#13 then
 edit2.SetFocus;
end;

procedure TCarDanganLR.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 edit5.SetFocus
 else
 if not (key in ['0'..'9',Chr(vk_Back)]) then
key:=#0;
end;

procedure TCarDanganLR.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 edit6.SetFocus
 else
 if not (key in ['0'..'9',Chr(vk_Back)]) then
key:=#0;
end;

procedure TCarDanganLR.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 edit3.SetFocus;

end;

procedure TCarDanganLR.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 edit7.SetFocus
 else
 if not (key in ['0'..'9',Chr(vk_Back)]) then
key:=#0;
end;

procedure TCarDanganLR.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 edit8.SetFocus;
end;

procedure TCarDanganLR.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 panel5.SetFocus;
end;

procedure TCarDanganLR.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 combobox1.SetFocus;
end;

procedure TCarDanganLR.Panel19Click(Sender: TObject);
begin
CarDanganLR.Close;
end;

end.