unit6.pas

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

else showmessage('无记录');
end;

procedure TCarshigugl.Panel1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Tpanel(sender).BevelOuter:=bvLowered;
end;

procedure TCarshigugl.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
tpanel(sender).BevelOuter:=bvSpace;
end;

procedure Tcarshigugl.editshow(I:integer);
begin
case I of
 1:  datamodule2.CarclassQ.First;
 2:  datamodule2.CarclassQ.Prior;
 3:  datamodule2.CarclassQ.next;
 4:  datamodule2.CarclassQ.Last;
end;

with datamodule2.CarclassQ do
     begin
        carnum:=fieldbyname('carnum').AsString;
        shigudate:=fieldbyname('shigudate').AsDateTime;
        combobox1.Text:=fieldbyname('carnum').AsString;
        combobox2.Text:=fieldbyname('carclass').AsString;
        datetimepicker1.DateTime:=fieldbyname('shigudate').AsDateTime;
        edit1.Text:=fieldbyname('shiguqrz').AsString;
        edit2.Text:=floattostr(fieldbyname('companyfdj').AsFloat);
        edit3.Text:=floattostr(fieldbyname('baoxianlpj').AsFloat);
        edit4.Text:=floattostr(fieldbyname('duifangpcj').AsFloat);
        edit5.Text:=fieldbyname('duifangshc').AsString;
        edit6.Text:=fieldbyname('duifangnam').AsString;
        edit7.Text:=fieldbyname('duifangzz').AsString;
        edit8.Text:=fieldbyname('duifanguni').AsString;
        edit9.Text:=fieldbyname('shigugy').AsString;
        memo1.Text:=fieldbyname('hejienr').AsString;
     end;
end;

procedure TCarshigugl.Panel7Click(Sender: TObject);
begin
if (datamodule2.carclassq.RecordCount >0) and (messagebox(carshigugl.Handle,'确定要删除此记录吗？','提示',MB_YESNO)=ID_YES) then
 begin
 with datamodule2.carclassq do
    begin
   close;
   sql.Clear;
   sql.Add('delete from carshigu.dbf where carnum=:carn and shigudate=:sgt');
   parambyname('carn').AsString:=carnum;
   parambyname('sgt').Value:=shigudate;
   execsql;
    end;
  carshigugl.FormShow(sender);
  chkedit;
  end else showmessage('无记录');
end;
procedure TCarshigugl.Panel5Click(Sender: TObject);
begin
if editreadonly then
 begin
  edit1.text:='';
  edit2.text:='0.00';
  edit3.text:='0.00';
  edit4.text:='0.00';
  edit5.text:='';
  edit6.text:='';
  edit7.text:='';
  edit8.text:='';
  edit9.text:='';
  combobox1.itemindex:=1;
  combobox2.ItemIndex:=1;
  datetimepicker1.DateTime:=now;
  memo1.text:='';
  editreadonly:=false;
  chkedit;
  combobox1.SetFocus;
 end
  else
    begin
  if insertorupdate then                   //添加
     begin
    if (trim(combobox1.Text)='') or(trim(edit1.Text)='') then
       showmessage('资料不完整！！')
         else
          begin
           zeroscan;
          with datamodule2.CarclassQ do
             begin
             close;
             sql.Clear;
             sql.Add('insert into carshigu.dbf');
             sql.Add(' (carnum,carclass,shigudate,shigugy,shiguqrz');
             sql.Add(',companyfdj,baoxianlpj,duifangpcj,duifangnam');
             sql.Add(',duifangzz,duifanguni,duifangshc,hejienr)');
             sql.Add(' values(:carnum,:carclass,:shigudate,:shigugy,:shiguqrz');
             sql.Add(',:companyfdj,:baoxianlpj,:duifangpcj,:duifangnam');
             sql.Add(',:duifangzz,:duifanguni,:duifangshc,:hejienr)');
             parambyname('carnum').AsString:=combobox1.Text;
             parambyname('carclass').AsString:=combobox2.Text;
             parambyname('shigudate').AsDateTime:=datetimepicker1.DateTime;
             parambyname('shiguqrz').AsString:=edit1.Text;
             parambyname('companyfdj').AsCurrency:=strtofloat(edit2.Text);
             parambyname('baoxianlpj').AsCurrency:=strtofloat(edit3.Text);
             parambyname('duifangpcj').AsCurrency:=strtofloat(edit4.Text);
             parambyname('duifangshc').AsString:=edit5.Text;
             parambyname('duifangnam').AsString:=edit6.Text;
             parambyname('duifangzz').AsString:=edit7.Text;
             parambyname('duifanguni').AsString:=edit8.Text;
             parambyname('shigugy').AsString:=edit9.Text;
             parambyname('hejienr').AsString:=memo1.Text;
             execsql;
             end;
          carshigugl.FormShow(sender);
          editreadonly:=true;
          chkedit;
          end;
      end
      else
      if (trim(combobox1.Text)='') then
       showmessage('资料不完整！！')
         else
         begin
         if messagebox(carshigugl.Handle,'确定要修改此记录吗','提示',MB_YESNO)=ID_YES then
      begin
      zeroscan;            //修改
      with datamodule2.CarclassQ do
             begin
             close;
             sql.Clear;
             sql.Add('update carshigu.dbf set');
             sql.Add('carnum=(:carnum),carclass=(:carclass),shigudate=(:shigudate),shiguqrz=(:shiguqrz)');
             sql.Add(',companyfdj=(:companyfdj),baoxianlpj=(:baoxianlpj),duifangpcj=(:duifangpcj),duifangnam=(:duifangnam)');
             sql.Add(',duifangzz=(:duifangzz),duifanguni=(:duifanguni),shigugy=(:shigugy),duifangshc=(:duifangshc),hejienr=(:hejienr)');
             sql.Add(' where carnum=(:oldcarnum) and shigudate=(:shigudate1)');
             parambyname('oldcarnum').AsString:=combobox1.Text;
             parambyname('shigudate1').AsDateTime:= shigudate;
             parambyname('carnum').AsString:=combobox1.Text;
             parambyname('carclass').AsString:=combobox2.Text;
             parambyname('shigudate').AsDateTime:=datetimepicker1.DateTime;
             parambyname('shiguqrz').AsString:=edit1.Text;
             parambyname('companyfdj').AsCurrency:=strtofloat(edit2.Text);
             parambyname('baoxianlpj').AsCurrency:=strtofloat(edit3.Text);
             parambyname('duifangpcj').AsCurrency:=strtofloat(edit4.Text);
             parambyname('duifangshc').AsString:=edit5.Text;
             parambyname('duifangnam').AsString:=edit6.Text;
             parambyname('duifangzz').AsString:=edit7.Text;
             parambyname('duifanguni').AsString:=edit8.Text;
             parambyname('shigugy').AsString:=edit9.Text;
             parambyname('hejienr').AsString:=memo1.Text;
             execsql;
             end;
          insertorupdate:=true;
          carshigugl.FormShow(sender);
          editreadonly:=true;;
          chkedit;
        end;
      end;
  end;
end;
procedure TCarshigugl.zeroscan;
begin
if trim(edit2.text)='' then
   edit2.Text:='0.00';
if trim(edit3.text)='' then
   edit3.Text:='0.00';
if trim(edit4.text)='' then
   edit4.Text:='0.00';
end;

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

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

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

procedure TCarshigugl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
datamodule2.CarclassQ.Close;

end;

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

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

procedure TCarshigugl.Edit3KeyPress(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 TCarshigugl.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 TCarshigugl.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
   edit6.SetFocus;
end;

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

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

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

procedure TCarshigugl.Edit9KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
   memo1.SetFocus;
end;

procedure TCarshigugl.Panel10Click(Sender: TObject);
begin
carshigugl.Close;
end;

procedure TCarshigugl.ComboBox1Change(Sender: TObject);
begin
with datamodule2.carclassq do
begin
close;
sql.Clear;
sql.Add('select * from cardangan.dbf where carnum=:old');
parambyname('old').AsString:=combobox1.Text;
open;
combobox2.Text:=fieldbyname('carclass').AsString;
end;
end;

end.