updaterepair.pas

管理车队用车记录

unit updaterepair;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls,dateutils, Grids, DBGrids;

type
  TForm_updaterepair = class(TForm)
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    ComboBox1: TComboBox;
    BitBtn4: TBitBtn;
    BitBtn1: TBitBtn;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    BitBtn5: TBitBtn;
    ComboBox4: TComboBox;
    BitBtn6: TBitBtn;
    DateTimePicker1: TDateTimePicker;
    Edit1: TEdit;
    Edit2: TEdit;
    Label19: TLabel;
    Edit3: TEdit;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Edit4: TEdit;
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn11Click(Sender: TObject);
    procedure ComboBox2Enter(Sender: TObject);
    procedure ComboBox3Enter(Sender: TObject);
    procedure ComboBox4Enter(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox8KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1Enter(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DBGrid1TitleClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  

var
  Form_updaterepair: TForm_updaterepair;
   procedure getlistbox2(Sender: TObject);
  procedure getlistbox3(Sender: TObject);
implementation
 uses dm, addcar, adddriver, addtype1, addtype2, addunit, addsigner,
  addbegin, addend, carout, addspot, additem;
 
{$R *.dfm}
procedure getlistbox2(Sender: TObject);
var i,s,e:integer;
begin
  form_carout.ListBox2.Items.Clear;
  s:=hourof(form_carout.datetimepicker2.time);
  e:=hourof(form_carout.datetimepicker3.time);
  if (form_carout.datetimepicker3.time-form_carout.datetimepicker2.Time)<0 then   e:=e+24;
  i:=s;
  while i< e do
    begin
    form_carout.listbox2.Items.Add(inttostr(i));
    i:=i+1;
    end;
end;

  procedure getlistbox3(Sender: TObject);
 var i,j,n1,n2:integer;
begin
  i:=0;
  n1:=26;
  n2:=form_carout.listbox2.Items.Count;
  form_carout.listbox3.Items.Clear;
  while i<n1 do
  begin
    j:=0;
    while j<n2 do
    begin
      if form_carout.listbox2.Items.Strings[j]=form_carout.listbox1.Items.Strings[i] then
          form_carout.listbox3.Items.Add(form_carout.listbox2.Items.Strings[j]);
      j:=j+1;
    end;
    i:=i+1 ;
  end;
end;
procedure TForm_updaterepair.BitBtn4Click(Sender: TObject);
begin
form_addcar.showmodal;
end;

procedure TForm_updaterepair.BitBtn1Click(Sender: TObject);
begin
form_adddriver.showmodal;
end;

procedure TForm_updaterepair.ComboBox1Change(Sender: TObject);
begin
  form_dm.ADOTable_driver_car.open;
if form_dm.ADOTable_driver_car.Locate('car_id',combobox1.Text,[]) then
  begin
    combobox2.Text:=form_dm.ADOTable_driver_car.FieldValues['driver_name'];
  end;
  form_dm.ADOTable_driver_car.close;
end;

procedure TForm_updaterepair.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [#46,#48,#49,#50,#51,#52,#53,#54,#55,#56,#57,#13,#8]) then
begin
showmessage('只能为数字!');
key:=#0;
end;
if key = #13 then
bitbtn9.SetFocus;
end;

procedure TForm_updaterepair.BitBtn11Click(Sender: TObject);
begin
close;
end;

procedure TForm_updaterepair.ComboBox2Enter(Sender: TObject);
begin
with form_dm.ADOtable_driver do
        begin
        open;
        first;
        combobox2.Items.Clear;
        repeat
            combobox2.Items.Add(form_dm.ADOtable_driver.fieldbyname('name').AsString);
            form_dm.ADOtable_driver.Next;
        until eof;
        end;
end;

procedure TForm_updaterepair.ComboBox3Enter(Sender: TObject);
begin
with form_dm.ADOtable_repairspot do
        begin
        open;
        first;
        combobox3.Items.Clear;
        repeat
            combobox3.Items.Add(fieldbyname('name').AsString);
            Next;
        until eof;
        end;
end;

procedure TForm_updaterepair.ComboBox4Enter(Sender: TObject);
begin
     with form_dm.adoquery_signers do
        begin
        sql.Text:='select * from repairitem ';
        open;
        first;
        combobox4.Items.Clear;
        repeat
            combobox4.Items.Add(fieldbyname('name').AsString);
            Next;
        until eof;
        end;
     combobox4.ItemIndex:=0;
end;

procedure TForm_updaterepair.FormShow(Sender: TObject);
begin
form_dm.ADOTable_repair.Open;
datetimepicker1.Date:=date;
combobox1.Text:='';
combobox2.Text:='';
combobox3.Text:='';
combobox4.Text:='';
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
end;

procedure TForm_updaterepair.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [#46,#48,#49,#50,#51,#52,#53,#54,#55,#56,#57,#13,#8]) then
begin
showmessage('只能为数字!');
key:=#0;
end;
if key = #13 then
edit2.SetFocus;
end;

procedure TForm_updaterepair.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [#46,#48,#49,#50,#51,#52,#53,#54,#55,#56,#57,#13,#8]) then
begin
showmessage('只能为数字!');
key:=#0;
end;
if key = #13 then
edit3.SetFocus;
end;

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

procedure TForm_updaterepair.ComboBox1Enter(Sender: TObject);
begin
    with form_dm.ADOTable_car do
    begin
        open;
        first;
        combobox1.Items.Clear;
        repeat
            combobox1.Items.Add(form_dm.ADOtable_car.fieldbyname('id').AsString);
            form_dm.ADOtable_car.Next;
        until eof;
     end;
end;

procedure TForm_updaterepair.Edit2Change(Sender: TObject);
begin
if (edit2.Text<>'')and (edit1.Text<>'') then
edit3.Text:=floattostr(strtofloat(edit2.text)*strtofloat(edit1.text));
end;

procedure TForm_updaterepair.Edit1Change(Sender: TObject);
begin
if (edit2.Text<>'')and (edit1.Text<>'') then
edit3.Text:=floattostr(strtofloat(edit2.text)*strtofloat(edit1.text));
end;

procedure TForm_updaterepair.BitBtn10Click(Sender: TObject);
begin
if edit4.Text<>'' then
begin
 with form_dm.ADOTable_repair do
  begin
  open;
  locate('id',edit4.Text,[]);
  if messagedlg('确定要删除该记录吗？',mtwarning,[mbyes,mbno],0)=mryes then
    Delete;
    close;
 end;
  form_updaterepair.OnShow(nil);
end
  else
  begin
    showmessage('请先选择要删除的记录!');
    abort;
  end;
end;

procedure TForm_updaterepair.BitBtn9Click(Sender: TObject);

begin
if edit4.Text<>'' then
begin
if strtofloat(edit3.Text)<0 then
begin
   showmessage('收车里程不能小于发车里程!');
 edit2.SetFocus;
 abort;
end;
if combobox1.Text='' then
begin
 showmessage('请输入完整的信息!');
 combobox1.SetFocus;
 abort;
end;
if combobox2.Text='' then
begin
 showmessage('请输入完整的信息!');
 combobox2.SetFocus;
 abort;
end;
if combobox3.Text='' then
begin
 showmessage('请输入完整的信息!');
 combobox3.SetFocus;
 abort;
end;
if combobox4.Text='' then
begin
 showmessage('请输入完整的信息!');
 combobox4.SetFocus;
 abort;
end;
if edit1.Text='' then
begin
 showmessage('请输入完整的信息!');
 edit1.SetFocus;
 abort;
end;
if edit2.Text='' then
begin
 showmessage('请输入完整的信息!');
 edit2.SetFocus;
 abort;
end;
if edit3.Text='' then
begin
 showmessage('请输入完整的信息!');
 edit3.SetFocus;
 abort;
end;
with form_dm.ADOTable_repair do
begin
  Open;
  edit;
  FieldByName('car_id').AsString:=combobox1.Text;
  FieldByName('driver_name').AsString:=combobox2.Text;
  FieldByName('place').AsString:=combobox3.Text;
  FieldByName('item').AsString:=combobox4.Text;
  FieldByName('amount').asfloat:=strtofloat(edit1.Text);
  FieldByName('price').asfloat:=strtofloat(edit2.Text);
   FieldByName('total').asfloat:=strtofloat(edit3.Text);
  fieldvalues['date']:=formatdatetime('yyyy-mm-dd',datetimepicker1.Datetime);
  post;
  close;
  open;
end;
  showmessage('维修信息修改成功!');
 end
 else
  begin
    showmessage('请先选择要修改的记录!');
    abort;
  end;
end;

procedure TForm_updaterepair.BitBtn2Click(Sender: TObject);
begin
form_addtype1.showmodal;
end;

procedure TForm_updaterepair.BitBtn3Click(Sender: TObject);
begin
form_addtype2.showmodal;
end;

procedure TForm_updaterepair.BitBtn5Click(Sender: TObject);
begin
form_addspot.showmodal;
end;

procedure TForm_updaterepair.BitBtn6Click(Sender: TObject);
begin
form_additem.showmodal;
end;
procedure TForm_updaterepair.BitBtn7Click(Sender: TObject);
begin
form_addbegin.showmodal;
end;

procedure TForm_updaterepair.BitBtn8Click(Sender: TObject);
begin
form_addend.showmodal;
end;

procedure TForm_updaterepair.DBGrid1CellClick(Column: TColumn);
begin
combobox1.Text:=dbgrid1.Fields[1].AsString;
combobox2.Text:=dbgrid1.Fields[2].AsString;
combobox3.Text:=dbgrid1.Fields[4].AsString;
combobox4.Text:=dbgrid1.Fields[5].AsString;

edit1.Text:=dbgrid1.Fields[7].AsString;
edit2.Text:=dbgrid1.Fields[6].AsString;
edit3.Text:=dbgrid1.Fields[8].AsString;
edit4.Text:=dbgrid1.Fields[0].AsString;

datetimepicker1.Date:=strtodate(dbgrid1.Fields[3].asstring);
end;

procedure TForm_updaterepair.DBGrid1TitleClick(Column: TColumn);
var
     i:integer;
     fieldname:string;
begin//排序
     i:=Column.Index;
     if bSort=0 then
     begin
         fieldname:=DBGrid1.Columns[i].FieldName+' ASC';
         bSort:=1;
     end
     else
     begin
         fieldname:=DBGrid1.Columns[i].FieldName+' DESC';
         bSort:=0;
     end;
      if form_dm.ADOQuery_repair.SQL.Text<>'' then
      begin

     form_dm.ADOQuery_repair.open;
     form_dm.ADOQuery_repair.Sort:=fieldname;
     end;
end;

end.