?? ywgl_sbwxform.pas
字號:
unit YWGL_SBWXFORM;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Buttons, Db, ADODB, Grids, DBGrids, StdCtrls, ExtCtrls, ComCtrls;
type
TYWGL_SBWX = class(TForm)
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
DataSource2: TDataSource;
DataSource3: TDataSource;
Edit1: TEdit;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
DBGrid2: TDBGrid;
DBGrid3: TDBGrid;
Splitter1: TSplitter;
Bevel1: TBevel;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
ADOTable1: TADOTable;
ADOTable1DSDesigner: TStringField;
ADOTable1DSDesigner2: TDateTimeField;
ADOTable1DSDesigner3: TStringField;
ADOTable1DSDesigner4: TStringField;
ADOTable1DSDesigner5: TStringField;
ADOTable1DSDesigner6: TStringField;
ADOTable1DSDesigner7: TStringField;
ADOTable1DSDesigner8: TStringField;
ADOTable1DSDesigner9: TStringField;
ADOTable1DSDesigner10: TStringField;
ADOTable1DSDesigner11: TStringField;
ADOTable1DSDesigner12: TStringField;
ADOTable1DSDesigner13: TBCDField;
ADOTable1DSDesigner15: TBCDField;
ADOTable1DSDesigner16: TBCDField;
ADOTable1DSDesigner17: TStringField;
ADOTable1DSDesigner18: TStringField;
ADOTable1DSDesigner19: TStringField;
ADOTable1DSDesigner20: TStringField;
ADOTable1DSDesigner21: TStringField;
ADOQuery2DSDesigner: TStringField;
ADOQuery2DSDesigner2: TDateTimeField;
ADOQuery2DSDesigner3: TStringField;
ADOQuery2DSDesigner4: TStringField;
ADOQuery2DSDesigner5: TStringField;
ADOQuery2DSDesigner6: TStringField;
ADOQuery2DSDesigner7: TStringField;
ADOQuery2DSDesigner8: TStringField;
ADOQuery2DSDesigner9: TStringField;
ADOQuery2DSDesigner10: TStringField;
ADOQuery2DSDesigner11: TStringField;
ADOQuery2DSDesigner12: TBCDField;
ADOQuery2DSDesigner13: TBCDField;
ADOQuery2DSDesigner14: TStringField;
ADOQuery2DSDesigner15: TStringField;
ADOQuery2DSDesigner16: TStringField;
ADOQuery2DSDesigner17: TStringField;
ADOQuery2DSDesigner18: TStringField;
ADOQuery2DSDesigner19: TStringField;
ADOTable2: TADOTable;
ADOTable2DSDesigner: TStringField;
ADOTable2DSDesigner2: TDateTimeField;
ADOTable2DSDesigner3: TStringField;
ADOTable2DSDesigner4: TStringField;
ADOTable2DSDesigner5: TStringField;
ADOTable2DSDesigner6: TStringField;
ADOTable2DSDesigner7: TStringField;
ADOTable2DSDesigner8: TStringField;
ADOTable2DSDesigner9: TStringField;
ADOTable2DSDesigner10: TStringField;
ADOTable2DSDesigner11: TStringField;
ADOTable2DSDesigner12: TStringField;
ADOTable2DSDesigner13: TBCDField;
ADOTable2DSDesigner15: TBCDField;
ADOTable2DSDesigner16: TBCDField;
ADOTable2DSDesigner17: TStringField;
ADOTable2DSDesigner18: TStringField;
ADOTable2DSDesigner19: TStringField;
ADOTable2DSDesigner20: TStringField;
ADOTable2DSDesigner21: TStringField;
ADOQuery1DSDesigner: TStringField;
ADOQuery1DSDesigner2: TStringField;
ADOQuery1DSDesigner3: TStringField;
ADOQuery1DSDesigner4: TStringField;
ADOQuery1DSDesigner5: TFloatField;
ADOQuery1DSDesigner6: TStringField;
ADOTable3: TADOTable;
ADOTable3DSDesigner: TStringField;
ADOTable3DSDesigner2: TStringField;
ADOTable3DSDesigner3: TStringField;
ADOTable3DSDesigner4: TStringField;
ADOTable3DSDesigner5: TBCDField;
ADOTable3DSDesigner6: TFloatField;
ADOTable3DSDesigner7: TFloatField;
ADOQuery2DSDesigner20: TStringField;
ADOTable1DSDesigner14: TStringField;
ADOTable2DSDesigner14: TStringField;
ADOTable1DSDesigner22: TStringField;
Label3: TLabel;
ComboBox1: TComboBox;
ADOQuery3: TADOQuery;
ADOQuery2DSDesigner21: TStringField;
procedure FormShow(Sender: TObject);
procedure DataSource2DataChange(Sender: TObject; Field: TField);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure ComboBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
YWGL_SBWX: TYWGL_SBWX;
implementation
uses YWGL_SBWX_fyFORM, MR_WXFORM;
{$R *.DFM}
Procedure TYWGL_SBWX.FormShow(Sender: TObject); //初始化
begin
dbgrid2.Refresh;
dbgrid3.refresh;
bevel1.Refresh;
label1.Refresh;
label2.refresh;
label3.refresh;
adoquery3.First;
combobox1.Items.Clear;
while not adoquery3.Eof do begin
combobox1.Items.add(adoquery3.fieldbyname('庫房').asstring);
adoquery3.Next;
end;
combobox1.ItemIndex:=0;
adoquery2.Filter:=format('維修部門'+'='+'''%s''',[combobox1.text]);
adotable2.filter:=adoquery2.filter;
adotable1.filter:=adoquery2.filter;
end;
procedure TYWGL_SBWX.DataSource2DataChange(Sender: TObject; Field: TField);
begin
If adoquery2.RecordCount <> 0 Then begin
adoquery1.close;
adoquery1.SQL.clear;
adoquery1.sql.add('select * from 職員工作表 where 現有工作='''+adoquery2.fieldbyname('單號').asstring+'''');
adoquery1.open;
edit1.text:=adoquery1.fieldbyname('職員').asstring;
edit2.text:=adoquery2.fieldbyname('單號').asstring;
end;
end;
procedure TYWGL_SBWX.BitBtn1Click(Sender: TObject); //修復交工
begin
If adoquery2.RecordCount = 0 Then begin
showmessage('現在沒有維修的設備。');
exit;
end;
if messagedlg('您確定'+adoquery2.fieldbyname('單號').asstring+'號維修單以修復嗎？？',
mtWarning,[mbyes,mbno],0)=mryes then begin
adoquery2.Edit;
if application.FindComponent('YWGL_SBWX_FY')=nil then application.CreateForm(TYWGL_SBWX_FY,YWGL_SBWX_FY);
YWGL_SBWX_FY.DBEdit1.DataSource:=YWGL_SBWX.DataSource2;
YWGL_SBWX_FY.showmodal; //調入付費窗口
if application.FindComponent('YWGL_SBWX_FY')<>nil then YWGL_SBWX_FY.Release;
adotable1.InsertRecord([adoquery2.fieldbyname('單號').asstring,date, //修復登記
adoquery2.fieldbyname('設備名稱').asstring,
adoquery2.fieldbyname('品牌、機型').asstring,
adoquery2.fieldbyname('整機型號').asstring,
adoquery2.fieldbyname('版機號').asstring,
adoquery2.fieldbyname('序號').asstring,
adoquery2.fieldbyname('故障現象').asstring,
adoquery2.fieldbyname('故障原因').asstring,
adoquery2.fieldbyname('故障部位').asstring,'以修復',
adoquery2.fieldbyname('所需備件').asstring,
adoquery2.fieldbyname('備件費用').asstring,
adoquery2.fieldbyname('費用').asstring,
adoquery2.fieldbyname('費用').asfloat+
adoquery2.fieldbyname('備件費用').asfloat,
adoquery2.fieldbyname('客戶').asstring,
adoquery2.fieldbyname('聯系電話').asstring,
adoquery2.fieldbyname('聯系人').asstring,
adoquery2.fieldbyname('維修人').asstring,
adoquery2.fieldbyname('詳細說明').asstring,
adoquery2.fieldbyname('附件信息').asstring,
adoquery2.fieldbyname('維修部門').asstring]);
adotable2.InsertRecord([adoquery2.fieldbyname('單號').asstring,date,
adoquery2.fieldbyname('設備名稱').asstring,
adoquery2.fieldbyname('品牌、機型').asstring,
adoquery2.fieldbyname('整機型號').asstring,
adoquery2.fieldbyname('版機號').asstring,
adoquery2.fieldbyname('序號').asstring,
adoquery2.fieldbyname('故障現象').asstring,
adoquery2.fieldbyname('故障原因').asstring,
adoquery2.fieldbyname('故障部位').asstring,'以修復',
adoquery2.fieldbyname('所需備件').asstring,
adoquery2.fieldbyname('備件費用').asstring,
adoquery2.fieldbyname('費用').asstring,
adoquery2.fieldbyname('費用').asfloat+
adoquery2.fieldbyname('備件費用').asfloat,
adoquery2.fieldbyname('客戶').asstring,
adoquery2.fieldbyname('聯系電話').asstring,
adoquery2.fieldbyname('聯系人').asstring,
adoquery2.fieldbyname('維修人').asstring,
adoquery2.fieldbyname('詳細說明').asstring,
adoquery2.fieldbyname('維修部門').asstring]);
//------------------------------------------------------------------------------
adotable3.close;
adotable3.tablename:='職員工作記錄';
adotable3.Open;
adotable3.InsertRecord([adoquery1.fieldbyname('職員').asstring, //工作記錄登記
adoquery1.fieldbyname('派修日期').asstring,datetimetostr(date),
adoquery1.fieldbyname('現有工作').asstring,
adoquery2.fieldbyname('費用').asstring,
adoquery1.fieldbyname('提成百分比').asstring,
(adoquery2.fieldbyname('費用').asfloat/100)*
adoquery1.fieldbyname('提成百分比').asfloat]);
//------------------------------------------------------------------------------
adotable3.close;
adotable3.tablename:='職員工資';
adotable3.Open;
adotable3.InsertRecord([adoquery1.fieldbyname('職員').asstring,
adoquery1.fieldbyname('派修日期').asstring,datetimetostr(date),
adoquery1.fieldbyname('現有工作').asstring,
adoquery2.fieldbyname('費用').asstring,
adoquery1.fieldbyname('提成百分比').asstring,
(adoquery2.fieldbyname('費用').asfloat/100)*
adoquery1.fieldbyname('提成百分比').asfloat]);
//------------------------------------------------------------------------------
adoquery1.Edit;
adoquery1.fieldbyname('現有工作').asstring:='';
adoquery1.fieldbyname('派修日期').asstring:='';
adoquery1.post;
//------------------------------------------------------------------------------
adoquery2.Delete;
showmessage('登記完畢。');
end;
end;
procedure TYWGL_SBWX.ComboBox1Click(Sender: TObject); //選擇部門
begin
adoquery2.Filter:=format('維修部門'+'='+'''%s''',[combobox1.text]);
adotable2.filter:=adoquery2.filter;
adotable1.filter:=adoquery2.filter;
end;
procedure TYWGL_SBWX.BitBtn2Click(Sender: TObject); //退出
begin
close;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -