unit16.pas

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

unit Unit16;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, Grids, DBGrids, DBCtrls, StdCtrls, ExtCtrls, DB,
  DBClient, MConnect, RpCon, RpConDS, RpDefine, RpRave;

type
  TForm16 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    SpeedButton2: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton3: TSpeedButton;
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBLookupComboBox1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);

  private
  commandstring: string;
  sj1,sj2: string;
  str1,str2: string;
    { Private declarations }
  public
  errcode:boolean;
  errzt:integer;
  function WriteTorz(czy, sj,jsj,csj: string):boolean;
    { Public declarations }
  end;

var
  Form16: TForm16;

implementation
uses unit28,unit1;

{$R *.dfm}

procedure TForm16.SpeedButton2Click(Sender: TObject);
begin
try
sj2:=datetimetostr(now);
writetorz(str1,str2,sj1,sj2);
DataModule1.ClientDataSet10.Active:=false;
DataModule1.ClientDataSet8.Active:=false;
except
showmessage('数据库没有打开')
end;
close;
end;

procedure TForm16.FormActivate(Sender: TObject);
begin
try
sj1:=datetimetostr(now);
str1:=form1.StatusBar1.Panels[4].Text;
sj2:='';
str2:='查看日志';
DataModule1.ClientDataSet8.Active:=true;
except
showmessage('数据库没有打开')
end;
end;

procedure TForm16.FormClose(Sender: TObject; var Action: TCloseAction);
begin
try
DataModule1.ClientDataSet10.Active:=false;
DataModule1.ClientDataSet8.Active:=false;
if sj2<>'' then exit;
sj2:=datetimetostr(now);
writetorz(str1,str2,sj1,sj2);
except
showmessage('数据库没有打开')
end;
end;

procedure TForm16.DBLookupComboBox1Click(Sender: TObject);
var
relation,cx:string;
begin
 relation:=' like ''';
    cx:='%';
    try
commandstring:='select * from dbo.xtrz';
commandstring:=commandstring+' where (dbo.xtrz.czy'+relation+cx+dblookupcombobox1.Text+cx+''')';
DataModule1.ClientDataSet10.Close;
DataModule1.ClientDataSet10.CommandText:=commandstring;
DataModule1.ClientDataSet10.Open;
except
showmessage('数据库没有打开!')
end;
end;

procedure TForm16.SpeedButton1Click(Sender: TObject);
var
i,i1: integer;
begin
try
DataModule1.ClientDataSet10.DisableControls;
DataModule1.ClientDataSet10.Close;
DataModule1.ClientDataSet10.CommandText:='delete from dbo.xtrz';
DataModule1.ClientDataSet10.Open;
DataModule1.ClientDataSet10.Close;
DataModule1.ClientDataSet10.CommandText:=commandstring;
DataModule1.ClientDataSet10.Open;
DataModule1.ClientDataSet10.EnableControls;
except
end;
end;
function tform16.WriteTorz(czy, sj,jsj,csj: string):boolean;
var
relation,cx:string;
begin
 relation:=' like ''';
 cx:='%';
 try
commandstring:='select * from dbo.xtrz';
commandstring:=commandstring+' where (dbo.xtrz.czy'+relation+cx+'冉晓军'+cx+''')';
DataModule1.ClientDataSet10.Close;
DataModule1.ClientDataSet10.CommandText:=commandstring;
DataModule1.ClientDataSet10.Open;
 DataModule1.ClientDataSet10.Last;
 DataModule1.ClientDataSet10.Edit;
 DataModule1.ClientDataSet10.Insert;
 DataModule1.ClientDataSet10.FieldByName('czy').AsString:=czy;
 DataModule1.ClientDataSet10.FieldByName('jrrqsj').AsDateTime:=strtodatetime(jsj);
 DataModule1.ClientDataSet10.FieldByName('shij').AsString:=sj;
 DataModule1.ClientDataSet10.FieldByName('tcrqsj').AsDateTime:=strtodatetime(csj);
 DataModule1.ClientDataSet10.ApplyUpdates(-1);
 DataModule1.ClientDataSet10.Active:=false;
 except
 showmessage('数据库没有打开!')
 end;
 end;
procedure TForm16.SpeedButton3Click(Sender: TObject);
begin
try
//form5.Rvxtrz.DataSet:=DataModule1.ClientDataSet10;
//form5.rvproject1.ProjectFile:=ExtractFileDir(Application.ExeName)+'\Project2.rav';
//form5.RvProject1.ExecuteReport('xtrz');
except
showmessage('打印错误，请您仔细检查您的打印机!')
end;
end;


end.