clml.~pas

来自「应对服装行业的生产成本控制系统」· ~PAS 代码 · 共 366 行

unit clml;

interface

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

type
  TFrmclml = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    edit2: TDBEdit;
    DBGrid2: TDBGrid;
    Label3: TLabel;
    Panel3: TPanel;
    Tnew: TBitBtn;
    Trepair: TBitBtn;
    Tdelete: TBitBtn;
    Tcancel: TBitBtn;
    Tsave: TBitBtn;
    Treturn: TBitBtn;
    cldw: TDBLookupComboBox;
    DBEdit2: TDBEdit;
    DBGrid1: TDBGrid;
    Label8: TLabel;
    Label9: TLabel;
    BitBtn1: TBitBtn;
    bprintc: TBitBtn;
    OpenDialog1: TOpenDialog;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    clfl: TDBLookupComboBox;
    Label4: TLabel;
    DBEdit3: TDBEdit;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TnewClick(Sender: TObject);
    procedure TrepairClick(Sender: TObject);
    procedure TdeleteClick(Sender: TObject);
    procedure TcancelClick(Sender: TObject);
    procedure TsaveClick(Sender: TObject);
    procedure TreturnClick(Sender: TObject);
    procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure bprintcClick(Sender: TObject);
    procedure DBEdit3Change(Sender: TObject);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure clflKeyPress(Sender: TObject; var Key: Char);
    procedure cldwKeyPress(Sender: TObject; var Key: Char);
    
 private
 rzczy,rzsj,rzjsj,rzcsj:string;
  xg: integer;
    { Private declarations }
  public
st1,st2,st3:string;
function checkcl(clmc,clfl,cldw:string):boolean;
  end;

var
  Frmclml: TFrmclml;

implementation
uses unit28,Unit16, Unit1,func;

{$R *.dfm}

procedure TFrmclml.FormActivate(Sender: TObject);
begin
rzjsj:=datetimetostr(now);
rzczy:=form1.StatusBar1.Panels[4].Text;
rzsj:='添加材料';
rzcsj:='';
xg:=0;
tnew.Enabled:=true;
trepair.Enabled:=false;
tdelete.Enabled:=false;
tsave.Enabled:=false;
tcancel.Enabled:=false;
tnew.SetFocus;
dbedit3.Enabled:=false;
edit2.Enabled:=false;
clfl.Enabled:=false;
cldw.Enabled:=false;
try
DataModule1.ClientDataSet5.Close;
DataModule1.ClientDataSet5.CommandText:='select * from dbo.cldwb order by xh' ;
DataModule1.ClientDataSet5.Open;
DataModule1.ClientDataSet14.Close;
DataModule1.ClientDataSet14.CommandText:='select * from dbo.clflb order by xh';
DataModule1.ClientDataSet14.Open;
DataModule1.ClientDataSet15.Close;
DataModule1.ClientDataSet15.CommandText:='select * from dbo.clmlb order by xh' ;
DataModule1.ClientDataSet15.Open;
except
showmessage('数据库没有打开!')
end;
end;

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

procedure TFrmclml.TnewClick(Sender: TObject);
begin
dbedit3.Enabled:=true;
clfl.Enabled:=true;
cldw.Enabled:=true;
edit2.Enabled:=true;
tnew.Enabled:=false;
tdelete.Enabled:=false;
trepair.Enabled:=false;
tcancel.Enabled:=true;
tsave.Enabled:=true;
try
DataModule1.ClientDataSet15.IndexFieldNames:='clfl;clmc';
dbedit3.SetFocus;
if xg=0 then
begin
DataModule1.ClientDataSet15.CancelUpdates;
DataModule1.ClientDataSet15.First;
DataModule1.ClientDataSet15.Edit;
DataModule1.ClientDataSet15.Insert;
if form1.clmc<>'' then
begin
dbedit3.Text:=form1.clmc;
form1.clmc:='';
end;
end;
except
showmessage('数据库没有打开!');
end;
end;


procedure TFrmclml.TrepairClick(Sender: TObject);
begin
try
xg:=1;
DataModule1.ClientDataSet15.Edit;
dbedit3.Enabled:=true;
clfl.Enabled:=true;
cldw.Enabled:=true;
edit2.Enabled:=true;
dbedit3.SetFocus;
tnew.Enabled:=false;
trepair.Enabled:=false;
tdelete.Enabled:=false;
tcancel.Enabled:=true;
tsave.Enabled:=true;
except
showmessage('数据库没有打开!')
end;
end;

procedure TFrmclml.TdeleteClick(Sender: TObject);
begin
try
tnew.Enabled:=true;
tnew.SetFocus;
trepair.Enabled:=false;
tdelete.Enabled:=false;
tcancel.Enabled:=false;
tsave.Enabled:=false;
if DataModule1.ClientDataSet15.RecordCount<1 then exit;
DataModule1.ClientDataSet15.Edit;
DataModule1.ClientDataSet15.Delete;
DataModule1.ClientDataSet15.ApplyUpdates(-1);
except
showmessage('数据库没有打开!')
end;
end;

procedure TFrmclml.TcancelClick(Sender: TObject);
begin
xg:=0;
DataModule1.ClientDataSet15.CancelUpdates;
cldw.Enabled:=true;
clfl.Enabled:=true;
tnew.Enabled:=true;
tnew.SetFocus;
trepair.Enabled:=false;
tdelete.Enabled:=false;
tcancel.Enabled:=false;
tsave.Enabled:=false;
end;

procedure TFrmclml.TsaveClick(Sender: TObject);
begin
if trim(clfl.Text)<>'' then dbedit1.Text:=clfl.Text;
if trim(cldw.Text)<>'' then dbedit2.Text:=cldw.Text;
//if trim(edit2.Text)=''then exit;
if trim(dbedit2.Text)=''then exit;
if trim(dbedit3.Text)=''then exit;
xg:=0;
 try
dbedit2.Text:=trim(dbedit2.Text);
edit2.Text:=trim(edit2.Text);
DataModule1.ClientDataSet15.ApplyUpdates(-1);
clfl.Enabled:=true;
cldw.Enabled:=true;
if not DataModule1.ClientDataSet15.Active then DataModule1.ClientDataSet15.Active:=true;
tsave.Enabled:=false;
tcancel.Enabled:=false;
trepair.Enabled:=false;
tdelete.Enabled:=false;
tnew.Enabled:=true;
tnew.SetFocus;
except
showmessage('输入数据重复或数据库没有打开!')
end;
end;

procedure TFrmclml.TreturnClick(Sender: TObject);
begin
try
form1.clmc:=trim(dbedit3.Text);
DataModule1.ClientDataSet15.IndexFieldNames:='';
if DataModule1.ClientDataSet15.Active then  DataModule1.ClientDataSet15.CancelUpdates;
if DataModule1.ClientDataSet15.Active then DataModule1.ClientDataSet15.Active:=false;
if DataModule1.ClientDataSet5.Active then DataModule1.ClientDataSet5.Active:=false;
if DataModule1.ClientDataSet14.Active then DataModule1.ClientDataSet14.Active:=false;
if DataModule1.ClientDataSet28.Active then DataModule1.ClientDataSet28.active:=false;
rzcsj:=datetimetostr(now);
form16.WriteTorz(rzczy,rzsj,rzjsj,rzcsj);
except
showmessage('数据库没有打开!')
end;
close;
end;



procedure TFrmclml.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then tsave.SetFocus;
end;

procedure TFrmclml.DBGrid1DblClick(Sender: TObject);
begin
tnew.Enabled:=false;
tdelete.Enabled:=true;
trepair.Enabled:=true;
trepair.Enabled:=true;
tcancel.Enabled:=true;
tsave.Enabled:=false;
trepair.SetFocus;
end;

procedure TFrmclml.BitBtn1Click(Sender: TObject);
begin
DataModule1.ClientDataSet15.Close;
DataModule1.ClientDataSet15.CommandText:='select * from clmlb order by clfl,clmc';
DataModule1.ClientDataSet15.Open;
end;

procedure TFrmclml.DBGrid1TitleClick(Column: TColumn);
var i : integer;
begin
for i:= 1 to DBGrid1.Columns.Count do
begin
//恢复所有标题字体为默认
DBGrid1.Columns[i-1].Title.Font.Color := clBlue;
DBGrid1.Columns[i-1].Title.Font.Style := [];
end;
if DataModule1.ClientDataSet15.IndexFieldNames<>(Column.FieldName) then //判断原排序方式
begin
DataModule1.ClientDataSet15.IndexFieldNames:= Column.FieldName;
Column.Title.Font.Color := clRed; //改变标题行字体为红色，表示当前的排序方式为升序
Column.Title.Font.Style := [fsBold];
end;
end;

procedure TFrmclml.bprintcClick(Sender: TObject);
var
excelname: string;
begin
if not form1.excel then
begin
showmessage('您还未获得管理员的授权!请您与管理员联系获取授权!');
exit;
end;
if DataModule1.ClientDataSet15.RecordCount<=0 then exit;
opendialog1.Filter:='Excel 文件 (*.xls) │*.xls';
if opendialog1.Execute then
excelname:=opendialog1.FileName;
if length(excelname)>0 then writetoexcel(DataModule1.ClientDataSet15,excelname,'材料信息报表');
exit;
end;

procedure TFrmclml.DBEdit3Change(Sender: TObject);
var
relation,cx,commandstring,strt:string;
begin
 relation:=' like ''';
    cx:='%';
  try
if trim(dbedit3.Text)<>'' then
begin
strt:=trim(dbedit3.Text);
commandstring:='select * from clmlb where (clmlb.clmc'+relation+cx+strt+cx+''')';
DataModule1.ClientDataSet28.Close;
DataModule1.ClientDataSet28.CommandText:=commandstring;
DataModule1.ClientDataSet28.Open;
end;
except
showmessage('数据库没有打开!')
end;
end;

procedure TFrmclml.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then clfl.SetFocus;
end;

procedure TFrmclml.clflKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then cldw.SetFocus;
end;

procedure TFrmclml.cldwKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then edit2.SetFocus;
end;

function tfrmclml.checkcl(clmc,clfl,cldw:string):boolean;
var
relation,commandstring,cx:string;
begin
relation:=' = ''';
cx:='';
commandstring:='select * from dbo.clmlb where (clmc ' +relation+cx+form1.clmc+cx+''')';  //检查
commandstring:=commandstring+' and (clfl ' +relation+cx+form1.clfl+cx+''')';
commandstring:=commandstring+' and (cldw ' +relation+cx+form1.cldw+cx+''')';
try
DataModule1.ClientDataSet28.Close;
DataModule1.ClientDataSet28.CommandText:=commandstring;
DataModule1.ClientDataSet28.Open;
if DataModule1.ClientDataSet28.RecordCount<1 then form1.cpmc:='';
DataModule1.ClientDataSet28.Active:=false;
except
form1.clmc:='';
end;
end;

end.