📄 diaodong.pas
字号:
unit diaodong;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, ppModule,
raCodMod, ppBands, ppVar, ppCtrls, ppPrnabl, ppClass, ppCache, ppComm,
ppRelatv, ppProd, ppReport, ImgList, ComCtrls, ToolWin;
type
Tformdiaodong = class(TForm)
DBGrid1: TDBGrid;
ADODataSet1: TADODataSet;
DataSource1: TDataSource;
Panel1: TPanel;
Button3: TButton;
ADOdiaodong: TADODataSet;
ADOdiaodongcardno: TStringField;
ADOdiaodongname: TStringField;
ADOdiaodongprof: TStringField;
ADOdiaodongsexname: TStringField;
ADOdiaodongrq: TDateTimeField;
ADOdiaodongodept: TStringField;
ADOdiaodongdiaodongtime: TBCDField;
ADOdiaodongcdate: TDateTimeField;
ADODataSet2: TADODataSet;
DataSource2: TDataSource;
ADODataSet2workno: TStringField;
ADODataSet2cardno: TStringField;
ADODataSet2prof: TStringField;
ADODataSet2mankind: TWideStringField;
ADODataSet2sexname: TStringField;
DBGrid2: TDBGrid;
ADOQuery1: TADOQuery;
ADODataSet1rq: TDateTimeField;
ADODataSet1odept: TStringField;
ADODataSet1memo: TStringField;
ADODataSet1operater: TStringField;
ADODataSet2name: TStringField;
ADOQuery2: TADOQuery;
ADODataSet1diaono: TStringField;
ADODataSet2diaodongtime: TBCDField;
ADODataSet2diaono: TStringField;
ppReport7: TppReport;
ppHeaderBand3: TppHeaderBand;
ppLabel267: TppLabel;
ppLabel268: TppLabel;
ppLabel269: TppLabel;
ppLine23: TppLine;
ppLabel270: TppLabel;
ppDBText173: TppDBText;
ppLabel271: TppLabel;
ppLabel272: TppLabel;
ppLabel273: TppLabel;
ppLabel274: TppLabel;
ppLabel275: TppLabel;
ppDBText174: TppDBText;
ppDBText175: TppDBText;
ppDBText176: TppDBText;
ppDBText177: TppDBText;
ppLabel276: TppLabel;
ppDBText178: TppDBText;
ppLabel277: TppLabel;
ppLabel278: TppLabel;
ppDBText179: TppDBText;
ppLabel279: TppLabel;
ppLabel280: TppLabel;
ppLabel281: TppLabel;
ppLabel282: TppLabel;
ppDBText180: TppDBText;
ppLabel283: TppLabel;
ppLabel284: TppLabel;
ppLabel285: TppLabel;
ppLabel286: TppLabel;
ppLabel287: TppLabel;
ppLabel288: TppLabel;
ppDBText181: TppDBText;
ppDBText182: TppDBText;
ppDBText183: TppDBText;
ppLabel293: TppLabel;
ppLabel294: TppLabel;
ppDBText184: TppDBText;
ppDBText185: TppDBText;
ppDBText186: TppDBText;
ppLabel295: TppLabel;
ppDBText187: TppDBText;
ppLabel290: TppLabel;
ppLabel296: TppLabel;
ppLabel297: TppLabel;
ppLabel289: TppLabel;
ppLabel291: TppLabel;
ppDBText188: TppDBText;
ppDBText189: TppDBText;
ppLabel292: TppLabel;
ppLabel298: TppLabel;
ppDBText190: TppDBText;
ppDBText191: TppDBText;
ppLabel299: TppLabel;
ppLabel300: TppLabel;
ppLabel301: TppLabel;
ppLabel302: TppLabel;
ppLine24: TppLine;
ppLabel303: TppLabel;
ppVariable23: TppVariable;
ppLine25: TppLine;
ppLine27: TppLine;
ppLabel304: TppLabel;
ppLabel305: TppLabel;
ppDBText192: TppDBText;
ppLabel306: TppLabel;
ppLabel307: TppLabel;
ppVariable24: TppVariable;
ppLabel308: TppLabel;
ppDBText193: TppDBText;
ppLabel309: TppLabel;
ppLabel310: TppLabel;
ppVariable25: TppVariable;
ppLabel311: TppLabel;
ppDBText194: TppDBText;
ppLine28: TppLine;
ppLine30: TppLine;
ppLabel312: TppLabel;
ppLabel314: TppLabel;
ppVariable26: TppVariable;
ppLabel313: TppLabel;
ppDBText195: TppDBText;
ppLabel315: TppLabel;
ppDBText196: TppDBText;
ppLabel316: TppLabel;
ppDBText197: TppDBText;
ppLabel317: TppLabel;
ppDBText198: TppDBText;
ppLabel318: TppLabel;
ppDBText199: TppDBText;
ppLabel319: TppLabel;
ppVariable27: TppVariable;
ppLine31: TppLine;
ppLabel320: TppLabel;
ppLabel321: TppLabel;
ppLabel322: TppLabel;
ppDBText200: TppDBText;
ppDBText201: TppDBText;
ppDBText202: TppDBText;
ppLabel323: TppLabel;
ppLabel324: TppLabel;
ppLabel325: TppLabel;
ppLabel326: TppLabel;
ppDetailBand3: TppDetailBand;
ppFooterBand3: TppFooterBand;
raCodeModule3: TraCodeModule;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ImageList1: TImageList;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
DBNavigator1: TDBNavigator;
ToolButton5: TToolButton;
Label1: TLabel;
Edit1: TEdit;
ADODataSet1ndept: TStringField;
ADOdiaodongoperater: TStringField;
ADOdiaodongworkno: TStringField;
ADOdiaodongdiaono: TStringField;
ADODataSet1gongzl: TBCDField;
ADODataSet1money: TBCDField;
ADODataSet1diaodongtime: TBCDField;
ADODataSet2gongzl: TBCDField;
ADODataSet2money: TBCDField;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBGrid1TitleClick(Column: TColumn);
procedure FormActivate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ADODataSet1BeforePost(DataSet: TDataSet);
procedure ADODataSet1BeforeEdit(DataSet: TDataSet);
procedure DBGrid2TitleClick(Column: TColumn);
procedure DBNavigator1BeforeAction(Sender: TObject;
Button: TNavigateBtn);
procedure ADODataSet1BeforeDelete(DataSet: TDataSet);
procedure FormCreate(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure Edit1Exit(Sender: TObject);
private
f:string;
diaono,odept,ndept,rq :string;
{ Private declarations }
public
{ Public declarations }
end;
var
formdiaodong: Tformdiaodong ;
implementation
uses main,datamol,publicfunction, moenydef,changeschedefine;
{$R *.DFM}
procedure Tformdiaodong.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
action:=cafree;
formdiaodong:=nil;
end;
procedure Tformdiaodong.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_f1 then
begin
Application.helpfile :=extractfilepath(application.exename) +'help\pasahelp.hlp';
application.helpjump('shm_contents0018');
end;
end;
procedure Tformdiaodong.DBGrid1TitleClick(Column: TColumn);
begin
if f='DESC' then
f:='ASC'
else
f:='DESC' ;
adodataset1.sort:=column.fieldname+' '+f;
end;
procedure Tformdiaodong.FormActivate(Sender: TObject);
begin
adodataset1.Close;
end;
procedure Tformdiaodong.Button2Click(Sender: TObject);
begin
if not assigned(formmoneydef) then
formmoneydef:=tformmoneydef.create(application);
formmoneydef.show;
end;
procedure Tformdiaodong.ADODataSet1BeforePost(DataSet: TDataSet);
begin
{if adodataset1.state=dsEdit then
begin
adoquery1.close;
adoquery1.sql.Clear;
adoquery1.sql.text:='update saldiaodong2 set diaono='''+adodataset1diaono.asstring+''',rq='''+adodataset1rq.asstring+''',odept='''+adodataset1odept.asstring+''',ndept='''+adodataset1ndept.asstring+''',operater='''+pubworkname+''',cdate='''+formatdatetime('yyyy/mm/dd',now)+''' '+
'where diaono='''+diaono+''' and odept='''+ odept+''' and ndept='''+ndept+''' ' ;
adoquery1.execsql;
adodataset1.close;
adodataset1.open;
end;}
end;
procedure Tformdiaodong.ADODataSet1BeforeEdit(DataSet: TDataSet);
begin
{ // adodataset1.open;
diaono:=adodataset1diaono.asstring;
rq:=adodataset1rq.asstring;
odept:=adodataset1odept.asstring;
ndept:=adodataset1ndept.asstring; }
end;
procedure Tformdiaodong.DBGrid2TitleClick(Column: TColumn);
begin
if f='DESC' then
f:='ASC'
else
f:='DESC';
adodataset2.Sort :=column.FieldName+' '+f;
end;
procedure Tformdiaodong.DBNavigator1BeforeAction(Sender: TObject;
Button: TNavigateBtn);
var i:integer;
dbcx:Tdbcheckbox;
begin
case button of //当修改或新建换班单时，调出换班具体作业
nbinsert,
nbedit:begin
if not assigned(formmoneydef) then
formmoneydef:=Tformmoneydef.Create(application);
// formmoneydef.show;
formmoneydef.panel1.Visible :=true;
formmoneydef.panel1.align :=alclient;
{if button=nbinsert then
begin
adodataset2.Insert;
formchangeschedefine.Tbstate :='new'
end
else
begin
adodataset2.Edit;
formchangeschedefine.Tbstate :='old';
end; }
adodataset1.open;
if button=nbinsert then
for i:=1 to 10 do
begin
with formmoneydef do
begin
dbcx:=Tdbcheckbox(findcomponent('DBCheckBox'+inttostr(i)));
end;
dbcx.checked:=false;
end
else if button=nbedit then
begin
adodataset2.First;
while not adodataset2.Eof do
begin
formmoneydef.ListBox2.Items.Add (adodataset2.fieldbyname('workno').asstring+copychar(' ',adodataset2.fieldbyname('workno').size-length(adodataset2.fieldbyname('workno').asstring))+' '+
adodataset2.fieldbyname('name').asstring+copychar(' ',adodataset2.fieldbyname('name').size-length(adodataset2.fieldbyname('name').asstring))+' '+
adodataset2.fieldbyname('sexname').asstring+copychar(' ',adodataset2.fieldbyname('name').size-length(adodataset2.fieldbyname('name').asstring))+' '+
adodataset2.fieldbyname('diaono').asstring+copychar(' ',adodataset2.fieldbyname('diaono').size-length(adodataset2.fieldbyname('diaono').asstring)));
adodataset2.Next;
end;
end;
//edit8.text:=adodataset1.fieldbyname('diaono').asstring;
formmoneydef.maskedit1.text:=adodataset1.fieldbyname('rq').asstring;
formmoneydef.edit8.text:=adodataset1.fieldbyname('diaono').asstring;
formmoneydef.edit2.text:=adodataset2.fieldbyname('diaodongtime').asstring;
formmoneydef.edit4.text:=adodataset2.fieldbyname('diaodongtime2').asstring;
formmoneydef.edit5.text:=adodataset2.fieldbyname('diaodongtime3').asstring;
formmoneydef.edit6.text:=adodataset2.fieldbyname('diaodongtime4').asstring;
formmoneydef.edit3.text:=adodataset2.fieldbyname('gongzl').asstring;
formmoneydef.edit7.text:=adodataset2.fieldbyname('money').asstring;
formmoneydef.combobox2.text:=adodataset1.fieldbyname('odept').asstring;
formmoneydef.combobox3.text:=adodataset1.fieldbyname('ndept').asstring;
formmoneydef.memo1.text:=adodataset1.fieldbyname('memo').asstring;
formmoneydef.Show;
//formmoneydef.free;
end;
end;
//end;
end;
procedure Tformdiaodong.ADODataSet1BeforeDelete(DataSet: TDataSet);
begin
adoquery2.close;
adoquery2.sql.clear;
adoquery2.sql.add('Delete saldiaodong2 where diaono='''+adodataset1.fieldbyname('diaono').asstring+''' ');
adoquery2.execsql;
adoquery2.close;
end;
procedure Tformdiaodong.FormCreate(Sender: TObject);
begin
adodataset2.open;
//adodataset1.open;
end;
procedure Tformdiaodong.ToolButton2Click(Sender: TObject);
begin
if not assigned(formmoneydef) then
formmoneydef:=tformmoneydef.create(application);
formmoneydef.show;
formmoneydef.listbox1.items.clear;
formmoneydef.listbox2.items.clear;
formmoneydef.edit8.text:='';
formmoneydef.edit2.text:='0';
formmoneydef.edit4.text:='0';
formmoneydef.edit5.text:='0';
formmoneydef.edit6.text:='0';
formmoneydef.edit3.text:='0';
formmoneydef.edit7.text:='0';
end;
procedure Tformdiaodong.ToolButton3Click(Sender: TObject);
begin
findrecorder(Adodiaodong,'Adodiaodong','vsaldiaodong');
end;
procedure Tformdiaodong.ToolButton4Click(Sender: TObject);
begin
close;
end;
procedure Tformdiaodong.ToolButton1Click(Sender: TObject);
begin
adodataset1.close;
adodataset1.commandtext:='select * from saldiaodong ';
adodataset1.open;
adodataset2.close;
adodataset2.open;
end;
procedure Tformdiaodong.Edit1Exit(Sender: TObject);
begin
adodataset1.close;
adodataset1.CommandText:='select a.diaono, a.rq,a.odept,a.ndept,a.memo,a.operater from saldiaodong a,saldiaodong2 b where a.diaono=b.diaono and a.rq=b.rq and a.odept=b.odept and a.ndept=b.ndept and (b.workno='''+edit1.text+''' or a.operater='''+edit1.text+''') ';
adodataset1.open;
adodataset2.close;
adodataset2.open;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -