【delphi开源代码栏目提醒】:网学会员在delphi开源代码频道为大家收集整理了MRGZBWL.pas提供大家参考,希望对大家有所帮助!
unit MRGZBWL;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ImgList, Grids, DBGrids, StdCtrls, ComCtrls, ToolWin,
ExtCtrls, inifiles;
type
TFRM_GZBWL = class(TForm)
Panel2: TPanel;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ToolButton12: TToolButton;
ToolButton13: TToolButton;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Panel1: TPanel;
TabSheet2: TTabSheet;
GroupBox1: TGroupBox;
DBGrid1: TDBGrid;
ImageList1: TImageList;
DataSource1: TDataSource;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Label4: TLabel;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
Label5: TLabel;
Memo1: TMemo;
Label6: TLabel;
Memo2: TMemo;
procedure FormShow(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure ToolButton11Click(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure ToolButton13Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FRM_GZBWL: TFRM_GZBWL;
tb : integer;
implementation
USES DATA, MRGZYWBW_CX;
{$R *.dfm}
procedure TFRM_GZBWL.FormShow(Sender: TObject);
var
ini : Tinifile;
ssp : string;
begin
ssp := '工作业务备忘';
ini:=Tinifile.Create('c:\cc.ini');
ini.WriteString('one',datetimetostr(now),ssp);
ini.Free;
with database.ADO_GZBWL do
begin
close;
sql.Clear;
sql.Add('select * from tb_Client_gzbw');
open;
end;
if database.ADO_GZBWL.RecordCount>0 then
begin
edit1.Text := database.ADO_GZBWL.fieldbyname('gzbw_id').AsString;
edit2.Text := database.ADO_GZBWL.fieldbyname('gzbw_bt').AsString;
DateTimePicker1.Date := database.ADO_GZBWL.fieldbyname('gzbw_jsrq').AsDateTime;
DateTimePicker2.Date := database.ADO_GZBWL.fieldbyname('gzbw_txrq').AsDateTime;
Memo1.Text := database.ADO_GZBWL.fieldbyname('gzbw_nr').AsString;
Memo2.Text := database.ADO_GZBWL.fieldbyname('gzbw_bz').AsString;
end
else
begin
edit1.Clear;
edit2.Clear;
DateTimePicker1.Date := now();
DateTimePicker2.Date := now();
memo1.Clear;
memo2.Clear;
end;
end;
procedure TFRM_GZBWL.ToolButton1Click(Sender: TObject);
var
s : string;
i : integer;
begin
if PageControl1.ActivePage = tabsheet1 then
begin
i := 1;
ToolButton4.Enabled := true;
ToolButton5.Enabled := true;
ToolButton2.Enabled := false;
TabSheet1.Enabled := true;
tb := 1;
with database.ADO_GZBWL do
begin
close;
sql.Clear;
sql.Add('select * from tb_Client_gzbw order by gzbw_id');
open;
end;
s := 'GB'+formatdatetime('yyyymm',now());
if database.ADO_GZBWL.RecordCount<1 then
begin
edit1.Text := s+'00000'+inttostr(i);
end
else
begin
database.ADO_GZBWL.Last;
i := strtoint(copy(database.ADO_GZBWL.fieldbyname('gzbw_id').AsString,9,6));
edit1.Text := s+formatfloat('000000',i+1);
end;
edit2.Clear;
DateTimePicker1.Date := now();
DateTimePicker2.Date := now();
memo1.Clear;
memo2.Clear;
edit2.SetFocus;
end;
end;
procedure TFRM_GZBWL.ToolButton2Click(Sender: TObject);
begin
ToolButton4.Enabled := true;
ToolButton5.Enabled := true;
ToolButton1.Enabled := false;
TabSheet1.Enabled := true;
tb := 2;
end;
procedure TFRM_GZBWL.ToolButton3Click(Sender: TObject);
begin
if (database.ADO_GZBWL.FieldByName('gzbw_id').AsString = '') then
begin
showmessage('无法删除,工
作业务备忘表已经为空。');
end
else
begin
if application.MessageBox('真的要删除该条记录吗?','提示',mb_yesno) = idyes then
begin
database.ADO_GZBWL.Delete;
database.ADO_GZBWL.First;
edit1.Text := database.ADO_GZBWL.fieldbyname('gzbw_id').AsString;
edit2.Text := database.ADO_GZBWL.fieldbyname('gzbw_bt').AsString;
Memo1.Text := database.ADO_GZBWL.fieldbyname('gzbw