unit22.~pas

来自「应对服装行业的生产成本控制系统」· ~PAS 代码 · 共 854 行 · 第 1/2 页

unit Unit22;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Grids, DBGrids, Buttons, ComCtrls, DBCtrls,
  Mask, DB, DBClient, MConnect, jpeg;

type
  TForm22 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel3: TPanel;
    Panel4: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Panel1: TPanel;
    Panel2: TPanel;
    GroupBox3: TGroupBox;
    CheckBox11: TCheckBox;
    CheckBox12: TCheckBox;
    CheckBox13: TCheckBox;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    GroupBox7: TGroupBox;
    CheckBox61: TCheckBox;
    CheckBox62: TCheckBox;
    CheckBox63: TCheckBox;
    CheckBox64: TCheckBox;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    SpeedButton7: TSpeedButton;
    DBGrid2: TDBGrid;
    Edit1: TDBEdit;
    CheckBox14: TCheckBox;
    GroupBox8: TGroupBox;
    CheckBox41: TCheckBox;
    CheckBox42: TCheckBox;
    CheckBox43: TCheckBox;
    CheckBox44: TCheckBox;
    GroupBox9: TGroupBox;
    CheckBox15: TCheckBox;
    CheckBox16: TCheckBox;
    CheckBox17: TCheckBox;
    CheckBox21: TCheckBox;
    CheckBox22: TCheckBox;
    CheckBox23: TCheckBox;
    CheckBox24: TCheckBox;
    CheckBox25: TCheckBox;
    CheckBox26: TCheckBox;
    CheckBox27: TCheckBox;
    CheckBox28: TCheckBox;
    CheckBox210: TCheckBox;
    CheckBox211: TCheckBox;
    CheckBox212: TCheckBox;
    CheckBox29: TCheckBox;
    CheckBox31: TCheckBox;
    CheckBox32: TCheckBox;
    CheckBox33: TCheckBox;
    CheckBox34: TCheckBox;
    CheckBox35: TCheckBox;
    CheckBox36: TCheckBox;
    CheckBox37: TCheckBox;
    CheckBox38: TCheckBox;
    CheckBox51: TCheckBox;
    CheckBox52: TCheckBox;
    CheckBox53: TCheckBox;
    CheckBox54: TCheckBox;
    CheckBox55: TCheckBox;
    CheckBox56: TCheckBox;
    CheckBox57: TCheckBox;
    CheckBox58: TCheckBox;
    CheckBox510: TCheckBox;
    CheckBox511: TCheckBox;
    CheckBox512: TCheckBox;
    CheckBox59: TCheckBox;
    CheckBox513: TCheckBox;
    CheckBox71: TCheckBox;
    CheckBox72: TCheckBox;
    CheckBox73: TCheckBox;
    CheckBox74: TCheckBox;
    CheckBox75: TCheckBox;
    CheckBox76: TCheckBox;
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
  private
   rzczy,rzsj,rzjsj,rzcsj:string;
   n: integer;
   mimastr,czyxm: string;
   xg:boolean;
   function show():boolean;
   function saveqx():boolean;
   function mima():string;
   //commandtring: string;

    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form22: TForm22;

implementation
 uses unit28,unit1,unit16;

{$R *.dfm}

procedure TForm22.SpeedButton8Click(Sender: TObject);
begin
try
DataModule1.ClientDataSet8.Active:=false;
rzcsj:=datetimetostr(now);
form16.WriteTorz(rzczy,rzsj,rzjsj,rzcsj);
except
showmessage('数据库没有打开!')
end;
close;
end;

procedure TForm22.SpeedButton4Click(Sender: TObject);
begin
try
DataModule1.ClientDataSet8.CancelUpdates;
DataModule1.ClientDataSet8.Refresh ;
DataModule1.ClientDataSet8.Active:=false;
rzcsj:=datetimetostr(now);
form16.WriteTorz(rzczy,rzsj,rzjsj,rzcsj);
except
showmessage('数据库没有打开!')
end;
close;
end;

procedure TForm22.FormActivate(Sender: TObject);
begin
try
rzjsj:=datetimetostr(now);
rzczy:=form1.StatusBar1.Panels[4].Text;
rzsj:='进入了管理员设置';
rzcsj:='';
DataModule1.ClientDataSet8.Active:=true;
dbedit1.Enabled:=false;
dbedit2.Enabled:=false;
edit3.Enabled:=false;
edit4.Enabled:=false;
xg:=false;
speedbutton1.Enabled:=true;
speedbutton2.Enabled:=false;
speedbutton3.Enabled :=false;
speedbutton5.Enabled:=false;
except
showmessage('数据库没有打开!')
end;
end;

procedure TForm22.FormClose(Sender: TObject; var Action: TCloseAction);
begin
try
DataModule1.ClientDataSet8.Active:=false;
if rzcsj<>'' then exit;
rzcsj:=datetimetostr(now);
form16.WriteTorz(rzczy,rzsj,rzjsj,rzcsj);
except
showmessage('数据库没有打开!')
end;
end;

procedure TForm22.SpeedButton1Click(Sender: TObject);
begin
try
DataModule1.ClientDataSet8.CancelUpdates;
DataModule1.ClientDataSet8.Refresh;
n:=0;
dbedit1.Enabled:=true;
dbedit2.Enabled:=true;
edit3.Enabled:=true;
edit4.Enabled:=true;
speedbutton3.Enabled:=true;
speedbutton1.Enabled:=false;
dbedit1.SetFocus;
DataModule1.ClientDataSet8.First;
DataModule1.ClientDataSet8.Edit;
DataModule1.ClientDataSet8.Insert;
dbedit1.Text:=inttostr(DataModule1.ClientDataSet8.RecordCount+1);
dbedit1.Text:=trim(dbedit1.Text);
if DataModule1.ClientDataSet8.RecordCount<=0 then
  begin
  dbedit1.SetFocus;
  dbedit2.SetFocus;
  exit;
  end;
dbedit1.SetFocus;
dbedit2.SetFocus;
except
dbedit1.SetFocus;
dbedit1.SelStart;
showmessage('该操作员编号已经存在，请您核查!或数据库没有打开!');
end;
end;

procedure TForm22.SpeedButton3Click(Sender: TObject);
var
relation,cx,dx,sqlstr:string;
begin
relation:=' = ''';
 cx:='';
 dx:= ' ''';
if xg then
begin
dbedit1.Text:=trim(dbedit1.Text);
dbedit2.Text:=trim(dbedit2.Text);
if trim(dbedit2.Text)='' then  exit;
if trim(dbedit1.Text)='' then  exit;
if (trim(edit3.Text)='') or (trim(edit4.Text)='') or (trim(edit3.Text)<>trim(edit4.Text)) then
begin
showmessage('请您输入密码并保证<密码>与<重复密码>一致!');
edit3.SetFocus;
exit;
end;
mima;
sqlstr:='update dbo.czyb set czyxm'+relation+dbedit2.Text+dx+' ,czyid'+relation+dbedit1.Text+dx+' ,mima'+relation+edit1.Text+dx;
sqlstr:=sqlstr+' where (czyxm'+relation+cx+czyxm+cx+''')';
try
DataModule1.ClientDataSet8.CommandText:=sqlstr;
DataModule1.ClientDataSet8.Execute;
sqlstr:='select * from dbo.czyb';
DataModule1.ClientDataSet8.Close;
DataModule1.ClientDataSet8.CommandText:=sqlstr;
DataModule1.ClientDataSet8.Open;
except
showmessage('  操作员删除失败!');
end;
dbgrid1.Enabled:=true;
xg:=false;
exit;
end;
try
if  DataModule1.ClientDataSet8.State<>dsedit then
begin
if (trim(edit3.Text)='') or (trim(edit4.Text)='') or (trim(edit3.Text)<>trim(edit4.Text)) then
begin
showmessage('请您输入密码并保证<密码>与<重复密码>一致!');
edit3.SetFocus;
exit;
end;
mima;
end;
dbedit1.Text:=trim(dbedit1.Text);
DataModule1.ClientDataSet8.ApplyUpdates(-1);
speedbutton1.Enabled:=true;
speedbutton2.Enabled:=false;
speedbutton3.Enabled:=false;
speedbutton5.Enabled:=false;
dbedit1.Enabled:=false;
dbedit2.Enabled:=false;
edit3.Text:='';
edit4.Text:='';
edit3.Enabled:=false;
edit4.Enabled:=false;
dbgrid1.Enabled:=true;
except
dbedit1.SetFocus;
dbedit1.SelStart;
SHOWMESSAGE('该操作员编号已经存在，请您核查!或数据库没有打开!');
end;
end;

procedure TForm22.SpeedButton9Click(Sender: TObject);
begin
checkbox11.Checked:=true;
checkbox12.Checked:=true;
checkbox13.Checked:=true;
checkbox14.Checked:=true;
checkbox15.Checked:=true;
checkbox16.Checked:=true;
checkbox17.Checked:=true;
checkbox21.Checked:=true;
checkbox22.Checked:=true;
checkbox23.Checked:=true;
checkbox24.Checked:=true;
checkbox25.Checked:=true;
checkbox26.Checked:=true;
checkbox27.Checked:=true;
checkbox28.Checked:=true;
checkbox29.Checked:=true;
checkbox210.Checked:=true;
checkbox211.Checked:=true;
checkbox31.Checked:=true;
checkbox32.Checked:=true;
checkbox33.Checked:=true;
checkbox34.Checked:=true;
checkbox35.Checked:=true;
checkbox36.Checked:=true;
checkbox37.Checked:=true;
checkbox38.Checked:=true;
checkbox41.Checked:=true;
checkbox42.Checked:=true;
checkbox43.Checked:=true;
checkbox44.Checked:=true;
checkbox51.Checked:=true;
checkbox52.Checked:=true;
checkbox53.Checked:=true;
checkbox54.Checked:=true;
checkbox55.Checked:=true;
checkbox56.Checked:=true;
checkbox57.Checked:=true;
checkbox58.Checked:=true;
checkbox59.Checked:=true;
checkbox510.Checked:=true;
checkbox511.Checked:=true;
checkbox512.Checked:=true;
checkbox513.Checked:=true;
checkbox61.Checked:=true;
checkbox62.Checked:=true;
checkbox63.Checked:=true;
checkbox64.Checked:=true;
checkbox71.Checked:=true;
checkbox72.Checked:=true;
checkbox73.Checked:=true;
checkbox74.Checked:=true;
checkbox75.Checked:=true;
checkbox76.Checked:=true;
end;

procedure TForm22.SpeedButton10Click(Sender: TObject);
begin
checkbox11.Checked:=false;
checkbox12.Checked:=false;
checkbox13.Checked:=false;
checkbox14.Checked:=false;
checkbox15.Checked:=false;
checkbox16.Checked:=false;
checkbox17.Checked:=false;
checkbox21.Checked:=false;
checkbox22.Checked:=false;
checkbox23.Checked:=false;
checkbox24.Checked:=false;
checkbox25.Checked:=false;
checkbox26.Checked:=false;
checkbox27.Checked:=false;
checkbox28.Checked:=false;
checkbox29.Checked:=false;
checkbox210.Checked:=false;
checkbox211.Checked:=false;
checkbox31.Checked:=false;
checkbox32.Checked:=false;
checkbox33.Checked:=false;
checkbox34.Checked:=false;
checkbox35.Checked:=false;
checkbox36.Checked:=false;
checkbox37.Checked:=false;
checkbox38.Checked:=false;
checkbox41.Checked:=false;
checkbox42.Checked:=false;
checkbox43.Checked:=false;
checkbox44.Checked:=false;
checkbox51.Checked:=false;
checkbox52.Checked:=false;
checkbox53.Checked:=false;
checkbox54.Checked:=false;
checkbox55.Checked:=false;
checkbox56.Checked:=false;
checkbox57.Checked:=false;
checkbox58.Checked:=false;
checkbox59.Checked:=false;
checkbox510.Checked:=false;
checkbox511.Checked:=false;
checkbox512.Checked:=false;
checkbox513.Checked:=false;
checkbox61.Checked:=false;
checkbox62.Checked:=false;
checkbox63.Checked:=false;
checkbox64.Checked:=false;
checkbox71.Checked:=false;
checkbox72.Checked:=false;
checkbox73.Checked:=false;
checkbox74.Checked:=false;
checkbox75.Checked:=false;
checkbox76.Checked:=false;
end;
function Tform22.show:boolean;
begin
try
if DataModule1.ClientDataSet8.RecordCount<1 then exit;
checkbox11.Checked:=DataModule1.ClientDataSet8.FieldByName('qx11').AsBoolean;
checkbox12.Checked:=DataModule1.ClientDataSet8.FieldByName('qx12').AsBoolean;
checkbox13.Checked:=DataModule1.ClientDataSet8.FieldByName('qx13').AsBoolean;
checkbox14.Checked:=DataModule1.ClientDataSet8.FieldByName('qx14').AsBoolean;
checkbox15.Checked:=DataModule1.ClientDataSet8.FieldByName('qx15').AsBoolean;
checkbox16.Checked:=DataModule1.ClientDataSet8.FieldByName('qx16').AsBoolean;
checkbox17.Checked:=DataModule1.ClientDataSet8.FieldByName('qx17').AsBoolean;
checkbox21.Checked:=DataModule1.ClientDataSet8.FieldByName('qx21').AsBoolean;
checkbox22.Checked:=DataModule1.ClientDataSet8.FieldByName('qx22').AsBoolean;