gzgl1.pas

delphi开发的委托加工管理系统源代码

unit gzgl1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Mask, DBCtrls, Buttons, ADODB, DB,
  TFlatComboBoxUnit, wwdblook, Grids, wwDataInspector, Wwdbdlg, DosMove;

type
  Tgzgl = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label2: TLabel;
    Edit1: TEdit;
    Label4: TLabel;
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    Label5: TLabel;
    DBEdit1: TDBEdit;
    ComboBox2: TComboBox;
    Label3: TLabel;
    Label6: TLabel;
    ComboBox3: TComboBox;
    Label7: TLabel;
    Edit2: TEdit;
    BitBtn3: TBitBtn;
    Label8: TLabel;
    DBEdit2: TDBEdit;
    Label9: TLabel;
    Edit3: TEdit;
    Label10: TLabel;
    Edit4: TEdit;
    Label11: TLabel;
    ComboBox4: TComboBox;
    BitBtn2: TBitBtn;
    DBEdit3: TDBEdit;
    Label12: TLabel;
    Label13: TLabel;
    BitBtn4: TBitBtn;
    ADOCommand1: TADOCommand;
    ADODataSet1: TADODataSet;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    DataSource1: TDataSource;
    ADODataSet2: TADODataSet;
    DataSource2: TDataSource;
    TabSheet3: TTabSheet;
    Label14: TLabel;
    DateTimePicker2: TDateTimePicker;
    Label15: TLabel;
    Edit5: TEdit;
    Label16: TLabel;
    ComboBox5: TComboBox;
    BitBtn9: TBitBtn;
    Edit6: TEdit;
    Label17: TLabel;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    DBEdit4: TDBEdit;
    Label18: TLabel;
    Label19: TLabel;
    ADOCommand2: TADOCommand;
    Label20: TLabel;
    DateTimePicker3: TDateTimePicker;
    Label21: TLabel;
    FlatComboBox1: TFlatComboBox;
    DBEdit5: TDBEdit;
    FlatComboBox2: TFlatComboBox;
    Label22: TLabel;
    Label23: TLabel;
    GroupBox3: TGroupBox;
    Label24: TLabel;
    DBEdit6: TDBEdit;
    Label25: TLabel;
    Edit7: TEdit;
    Label26: TLabel;
    Edit8: TEdit;
    Label27: TLabel;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    BitBtn15: TBitBtn;
    BitBtn16: TBitBtn;
    DosMove1: TDosMove;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1DropDown(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure ComboBox2DropDown(Sender: TObject);
    procedure ComboBox3DropDown(Sender: TObject);
    procedure ComboBox4DropDown(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure ComboBox1Exit(Sender: TObject);
    procedure ComboBox2Exit(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure ComboBox5DropDown(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure ComboBox5Exit(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn16Click(Sender: TObject);
    procedure FlatComboBox1DropDown(Sender: TObject);
    procedure FlatComboBox2DropDown(Sender: TObject);
    procedure FlatComboBox2Exit(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
    procedure BitBtn14Click(Sender: TObject);
    procedure Edit7Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  gzgl: Tgzgl;

implementation

uses zggl1, ql1, jglb1, adodm;

{$R *.dfm}

procedure Tgzgl.FormCreate(Sender: TObject);
begin
datetimepicker1.DateTime:=now;
datetimepicker2.DateTime:=now;
datetimepicker3.DateTime:=now
end;

procedure Tgzgl.ComboBox1DropDown(Sender: TObject);
var
i:integer;
begin
combobox1.clear;
adoquery1.Active:=false;
adoquery1.Active:=true;
adoquery1.Open;
if (adoquery1.RecordCount>0) then
adoquery1.First;
for i:=0 to adoquery1.RecordCount - 1 do
begin
combobox1.Items.add(adoquery1.Fieldbyname('姓名').AsString);
adoquery1.Next;
end;
end;
procedure Tgzgl.BitBtn5Click(Sender: TObject);
begin
edit2.Enabled:=true;
edit3.Enabled:=true;
edit4.Enabled:=true;
combobox1.Enabled:=true;
combobox2.Enabled:=true;
combobox3.Enabled:=true;
combobox4.Enabled:=true;
bitbtn1.Enabled:=true;
bitbtn2.Enabled:=true;
bitbtn3.Enabled:=true;
bitbtn4.Enabled:=true;
label13.Caption:='';
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
combobox2.Clear;
combobox3.Clear;
dbedit2.Clear;
dbedit3.Clear;
bitbtn5.Enabled:=false;
bitbtn6.Enabled:=true
end;

procedure Tgzgl.ComboBox2DropDown(Sender: TObject);
var
i:integer;
begin
combobox2.clear;
dm.wl.Open;
if (dm.wl.RecordCount>0) then
dm.wl.First;
for i:=0 to dm.wl.RecordCount - 1 do
begin
combobox2.Items.add(dm.wl.Fieldbyname('物料代码').AsString);
dm.wl.Next;
end;
end;

procedure Tgzgl.ComboBox3DropDown(Sender: TObject);
var
i:integer;
begin
combobox3.clear;
adoquery3.Open;
if (adoquery3.RecordCount>0) then
adoquery3.First;
for i:=0 to adoquery3.RecordCount - 1 do
begin
combobox3.Items.add(adoquery3.Fieldbyname('类别名称').AsString);
adoquery3.Next;
end;
end;
procedure Tgzgl.ComboBox4DropDown(Sender: TObject);
var
i:integer;
begin
combobox4.clear;
adoquery1.Open;
if (adoquery1.RecordCount>0) then
adoquery1.First;
for i:=0 to adoquery1.RecordCount - 1 do
begin
combobox4.Items.add(adoquery1.Fieldbyname('姓名').AsString);
adoquery1.Next;
end;
end;

procedure Tgzgl.BitBtn1Click(Sender: TObject);
begin
application.CreateForm(tzggl,zggl);
zggl.show;
end;

procedure Tgzgl.BitBtn3Click(Sender: TObject);
begin
application.CreateForm(twl,wl);
wl.show;
end;

procedure Tgzgl.BitBtn2Click(Sender: TObject);
begin
application.CreateForm(tjglb,jglb);
jglb.show;
end;

procedure Tgzgl.BitBtn4Click(Sender: TObject);
begin
application.CreateForm(tzggl,zggl);
zggl.show;
end;

procedure Tgzgl.ComboBox1Exit(Sender: TObject);
begin
adodataset1.Active:=false;
adodataset1.CommandText:='select * from yfdata where 姓名='''+trim(combobox1.Text)+'''';
adodataset1.Active:=true;
datasource1.DataSet:=adodataset1;
dbedit1.DataSource:=datasource1;
dbedit1.DataField:='类型'
end;

procedure Tgzgl.ComboBox2Exit(Sender: TObject);
begin
if combobox2.Text<>'' then
begin
adodataset2.Active:=false;
adodataset2.CommandText:='select * from wldata where 物料代码='''+trim(combobox2.Text)+'''';
adodataset2.Active:=true;
datasource2.DataSet:=adodataset2;
dbedit2.DataSource:=datasource2;
dbedit3.DataSource:=datasource2;
dbedit2.DataField:='品名';
dbedit3.DataField:='工价';
combobox3.Text:=adodataset2.Fields[2].AsString;
if (dbedit3.Text='') then
showmessage('您输入的料号或单价不存在是否增加')
end;
end;

procedure Tgzgl.BitBtn8Click(Sender: TObject);
begin
close
end;

procedure Tgzgl.BitBtn7Click(Sender: TObject);
begin
if (combobox1.Text)='' then
showmessage('请输入相应的数据')
else
begin
if (edit3.Text='') then
edit3.Text:='0';
if (edit4.Text='') then
edit4.Text:='0';
if (edit2.Text<>'') and (dbedit3.Text<>'') then
begin
adocommand1.CommandText:='insert into gzdata (日期,姓名,类型,物料代码,品名,送检数量,加工类型,工废数量,料废数量,工价,加工费,检验员,月份) values'
+'('''+formatdatetime('yyyy-mm-dd',datetimepicker1.Date)+''','''+trim(combobox1.Text)+''','''+trim(dbedit1.Text)+''','''+trim(combobox2.Text)+''','''+trim(dbedit2.Text)+''','''+trim(edit2.Text)+''','
+''''+trim(combobox3.Text)+''','''+trim(edit3.Text)+''','''+trim(edit4.Text)+''','''+trim(dbedit3.Text)+''','''+formatfloat(',.00',(strtofloat(edit2.Text)-strtofloat(edit3.Text)*2-strtofloat(edit4.Text))*strtofloat(dbedit3.Text))+''','''+trim(combobox4.Text)+''','''+formatdatetime('yyyymm',datetimepicker1.Date)+''')';
adocommand1.Execute;
label13.Caption:='加工金额为：￥: '+ formatfloat(',.00',(strtofloat(edit2.Text)-strtofloat(edit3.Text)*2-strtofloat(edit4.Text))*strtofloat(dbedit3.Text));
showmessage('操作成功！');
bitbtn6.Enabled:=false;
bitbtn5.Enabled:=true;
end
else
showmessage('您输入的数量或单价不存在');
end;
end;

procedure Tgzgl.ComboBox5DropDown(Sender: TObject);
var
i:integer;
begin
combobox5.clear;
adoquery1.Open;
if (adoquery1.RecordCount>0) then
adoquery1.First;
for i:=0 to adoquery1.RecordCount - 1 do
begin
combobox5.Items.add(adoquery1.Fieldbyname('姓名').AsString);
adoquery1.Next;
end;
end;
procedure Tgzgl.BitBtn12Click(Sender: TObject);
begin
close
end;

procedure Tgzgl.ComboBox5Exit(Sender: TObject);
begin
adodataset1.Active:=false;
adodataset1.CommandText:='select * from yfdata where 姓名='''+trim(combobox5.Text)+'''';
adodataset1.Active:=true;
datasource1.DataSet:=adodataset1;
dbedit4.DataSource:=datasource1;
dbedit4.DataField:='类型'
end;

procedure Tgzgl.BitBtn10Click(Sender: TObject);
begin
bitbtn9.Enabled:=true;
combobox5.Enabled:=true;
edit5.Enabled:=true;
edit6.Enabled:=true;
bitbtn10.Enabled:=false;
bitbtn11.Enabled:=true;
label19.Caption:='';
combobox5.Clear;
dbedit4.Clear;
edit5.Clear;
edit6.Clear
end;

procedure Tgzgl.BitBtn11Click(Sender: TObject);
begin
if (edit6.Text='') then
edit6.Text:='0';
if (dbedit4.Text='计时') then
begin
adocommand2.CommandText:='insert into gzdata (日期,姓名,类型,基本工资,奖金,加工费,月份) values ('''+formatdatetime('yyyy-mm-dd',datetimepicker2.Date)+''','''+trim(combobox5.Text)+''','''+trim(dbedit4.Text)+''','''+trim(edit5.Text)+''','''+trim(edit6.Text)+''','''+formatfloat(',.00',strtofloat(edit6.Text)+strtofloat(edit5.Text))+''','''+formatdatetime('yyyymm',datetimepicker2.Date)+''')';
adocommand2.Execute;
bitbtn10.Enabled:=true;
label19.Caption:='本月工资为：￥: '+ formatfloat(',.00',strtofloat(edit6.Text)+strtofloat(edit5.Text));
bitbtn11.Enabled:=false;
showmessage('操作成功！')
end
else
showmessage('您输入的职工不存在或不是计时职工！')
end;

procedure Tgzgl.BitBtn16Click(Sender: TObject);
begin
close
end;

procedure Tgzgl.FlatComboBox1DropDown(Sender: TObject);
var
i:integer;
begin
flatcombobox1.clear;
adoquery1.Open;
if (adoquery1.RecordCount>0) then
adoquery1.First;
for i:=0 to adoquery1.RecordCount - 1 do
begin
flatcombobox1.Items.add(adoquery1.Fieldbyname('姓名').AsString);
adoquery1.Next;
end;
end;
procedure Tgzgl.FlatComboBox2DropDown(Sender: TObject);
var
i:integer;
begin
flatcombobox2.clear;
adoquery2.Active:=false;
adoquery2.Active:=true;
adoquery2.Open;
if (adoquery2.RecordCount>0) then
adoquery2.First;
for i:=0 to adoquery2.RecordCount - 1 do
begin
flatcombobox2.Items.add(adoquery2.Fieldbyname('物料代码').AsString);
adoquery2.Next;
end;
end;
procedure Tgzgl.FlatComboBox2Exit(Sender: TObject);
begin
if flatcombobox2.Text<>'' then
begin
adodataset2.Active:=false;
adodataset2.CommandText:='select * from wldata where 物料代码='''+trim(flatcombobox2.Text)+'''';
adodataset2.Active:=true;
datasource2.DataSet:=adodataset2;
dbedit5.DataSource:=datasource2;
dbedit6.DataSource:=datasource2;
dbedit5.DataField:='品名';
dbedit6.DataField:='工价';
if (dbedit5.Text='') then
showmessage('您输入的料号或单价不存在是否增加')
end;
end;

procedure Tgzgl.BitBtn13Click(Sender: TObject);
begin
flatcombobox1.Enabled:=true;
flatcombobox2.Enabled:=true;
edit7.Enabled:=true;
edit8.Enabled:=true;
bitbtn14.Enabled:=true;
bitbtn13.Enabled:=false;
flatcombobox2.Clear;
edit7.Clear;
edit8.Clear;
dbedit5.Clear;
dbedit6.Clear;
label27.Caption:='';
end;

procedure Tgzgl.BitBtn14Click(Sender: TObject);
begin
adocommand2.CommandText:='insert into gzdata (日期,姓名,物料代码,品名,clmoney,月份,送检数量,工价) values '
+'('''+formatdatetime('yyyy-mm-dd',datetimepicker3.date)+''','''+trim(flatcombobox1.Text)+''','''+trim(flatcombobox2.text)+''','''+trim(dbedit5.text)+''','''+floattostr(strtofloat(edit7.Text)*strtofloat(dbedit6.Text))+''','''+formatdatetime('yyyymm',datetimepicker3.date)+''','''+trim(edit7.Text)+''','''+trim(dbedit6.Text)+''')';
adocommand2.execute;
showmessage('操作成功!');
bitbtn13.Enabled:=true;
bitbtn14.Enabled:=false;
end;

procedure Tgzgl.Edit7Exit(Sender: TObject);
begin
label27.Caption:='金额合计：￥:'+formatfloat(',.00',strtofloat(edit7.Text)*strtofloat(dbedit6.Text));
end;

end.