repair.pas

管理车队用车记录

unit repair;

interface

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

type
  TForm_repair = 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;
    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);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  

var
  Form_repair: TForm_repair;
   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_repair.BitBtn4Click(Sender: TObject);
begin
form_addcar.showmodal;
end;

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

procedure TForm_repair.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_repair.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_repair.BitBtn11Click(Sender: TObject);
begin
close;
end;

procedure TForm_repair.ComboBox2Enter(Sender: TObject);
begin
with form_dm.ADOtable_driver do
        begin
        open;
        Sort:='name';
        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_repair.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_repair.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_repair.FormShow(Sender: TObject);
begin
datetimepicker1.Date:=date;
end;

procedure TForm_repair.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_repair.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_repair.ComboBox8KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
edit1.SetFocus;
end;

procedure TForm_repair.ComboBox1Enter(Sender: TObject);
begin
    with form_dm.ADOTable_car do
    begin
        open;
        Sort:='id';
        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_repair.Edit2Change(Sender: TObject);
begin
if (edit2.Text<>'')and (edit1.Text<>'') then
edit3.Text:=floattostr(strtofloat(edit2.text)*strtofloat(edit1.text));
end;

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

procedure TForm_repair.BitBtn10Click(Sender: TObject);
begin
datetimepicker1.Date:=date;
combobox1.Text:='';
combobox2.Text:='';
combobox3.Text:='';
combobox4.Text:='';
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
end;

procedure TForm_repair.BitBtn9Click(Sender: TObject);
var s:string;
id:integer;
begin
 for id:=1 to 99 do
 begin
      form_dm.ADOTable_repair.Open ;
      s:=formatdatetime('yyyymmdd',datetimepicker1.Datetime);
      s:=s+copy('00',1,2-length(inttostr(id)))+inttostr(id);
      if not form_dm.ADOTable_repair.Locate('id',s,[]) then
          break
      else
          continue;
 end;
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;
  append;
  FieldByName('id').AsString:=s;
  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;
end;
  bitbtn10.OnClick(nil);
  showmessage('维修信息登记成功!');

end;

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

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

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

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

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

end.