?? xsh_unit.pas
字號:
unit xsh_unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ToolWin, Grids, DBGrids, Buttons;
type
Txsh_form = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
GroupBox6: TGroupBox;
SpeedButton15: TSpeedButton;
SpeedButton16: TSpeedButton;
SpeedButton17: TSpeedButton;
SpeedButton18: TSpeedButton;
SpeedButton19: TSpeedButton;
TabSheet2: TTabSheet;
GroupBox5: TGroupBox;
SpeedButton7: TSpeedButton;
SpeedButton12: TSpeedButton;
SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton;
SpeedButton20: TSpeedButton;
GroupBox1: TGroupBox;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
SpeedButton10: TSpeedButton;
SpeedButton11: TSpeedButton;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
DateTimePicker1: TDateTimePicker;
Edit30: TEdit;
Edit31: TEdit;
Edit32: TEdit;
Edit33: TEdit;
Edit34: TEdit;
GroupBox2: TGroupBox;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
SpeedButton1: TSpeedButton;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit29: TEdit;
DBGrid1: TDBGrid;
StatusBar1: TStatusBar;
GroupBox3: TGroupBox;
Label17: TLabel;
Label18: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
Label34: TLabel;
Label25: TLabel;
Label31: TLabel;
Label32: TLabel;
Edit15: TEdit;
Edit17: TEdit;
Edit18: TEdit;
Edit19: TEdit;
Edit20: TEdit;
DateTimePicker2: TDateTimePicker;
ComboBox3: TComboBox;
Edit21: TEdit;
Edit22: TEdit;
Edit23: TEdit;
Edit24: TEdit;
Edit25: TEdit;
Edit26: TEdit;
Edit27: TEdit;
Edit28: TEdit;
Edit16: TEdit;
Edit35: TEdit;
Edit36: TEdit;
Edit37: TEdit;
Edit38: TEdit;
DBGrid2: TDBGrid;
StatusBar2: TStatusBar;
procedure SpeedButton18Click(Sender: TObject);
procedure SpeedButton14Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton15Click(Sender: TObject);
procedure SpeedButton17Click(Sender: TObject);
procedure Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit3KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure SpeedButton10Click(Sender: TObject);
procedure SpeedButton11Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure Edit4KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit6KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit13KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit13KeyPress(Sender: TObject; var Key: Char);
procedure Edit14KeyPress(Sender: TObject; var Key: Char);
procedure Edit14KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure Edit5KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBGrid1CellClick(Column: TColumn);
procedure SpeedButton19Click(Sender: TObject);
procedure SpeedButton16Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton13Click(Sender: TObject);
procedure SpeedButton20Click(Sender: TObject);
procedure DBGrid2CellClick(Column: TColumn);
procedure SpeedButton8Click(Sender: TObject);
procedure SpeedButton12Click(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
xsh_form: Txsh_form;
implementation
uses data_unit, jh_ghs_find_unit, jh_yg_find_unit, jh_sp_find_unit,
xsh_find_unit, jh_jhdh_find_unit, xshfk_find_unit, jh_sfkfs_find_unit;
{$R *.dfm}
procedure Txsh_form.SpeedButton18Click(Sender: TObject);
begin
close;
end;
procedure Txsh_form.SpeedButton14Click(Sender: TObject);
begin
close;
end;
procedure Txsh_form.FormCreate(Sender: TObject);
begin
self.Top :=74;
self.Left :=11;
self.Height :=491;
self.Width :=767;
pagecontrol1.ActivePage:=tabsheet1;
datetimepicker1.date:=date;
datetimepicker2.date:=date;
end;
procedure Txsh_form.SpeedButton15Click(Sender: TObject);
begin
if (length(edit2.Text)<>0) then
begin
with database do
begin
if (length(edit13.Text)=0) and (length(edit14.Text)=0) then
begin
edit13.Text :='0';edit14.Text :='0';
end;
edit29.Text :=floattostr(strtofloat(edit13.Text)*strtofloat(edit14.Text));
edit30.Text :=formatdatetime('yy-mm-dd',datetimepicker1.date);
edit33.Text :=edit2.Text ;
//edit33.Text :=formatdatetime('MM-dd-yy',datetimepicker1.date);
edit34.Text :=formatdatetime('MM-dd-yy',datetimepicker1.date);
adoq1.Connection :=adoc;
adoq2.Connection :=adoc;
adoq1.SQL.Clear ;
adoq1.SQL.Add('insert into xshd(錄單日期,單據編碼,供貨商名稱,經手人,備注,商品簡碼,商品編碼,商品名稱,類別,規格,型號,單位,參考單價,數量,金額) values(:ldrq,:djbm,:gysmc,:jsr,:bz,:spjm,:spbm,:spmc,:lb,:gg,:xh,:dw,:ckdj,:sl,:je)');
adoq1.parameters.ParamByName('ldrq').value :=edit30.Text ;
adoq1.parameters.ParamByName('djbm').value :=edit2.text;
adoq1.parameters.ParamByName('gysmc').value :=edit3.text;
adoq1.Parameters.ParamByName('jsr').Value :=edit4.Text;
adoq1.Parameters.ParamByName('bz').Value :=edit5.text;
adoq1.parameters.ParamByName('spjm').value :=edit6.text;
adoq1.parameters.ParamByName('spbm').value :=edit7.text;
adoq1.parameters.ParamByName('spmc').value :=edit8.text;
adoq1.Parameters.ParamByName('lb').Value :=edit9.Text;
adoq1.Parameters.ParamByName('gg').Value :=edit10.text;
adoq1.parameters.ParamByName('xh').value :=edit11.text;
adoq1.parameters.ParamByName('dw').value :=edit12.text;
adoq1.parameters.ParamByName('ckdj').value :=strtofloat(edit13.text);
adoq1.Parameters.ParamByName('sl').Value :=strtofloat(edit14.Text);
adoq1.Parameters.ParamByName('je').Value :=strtofloat(edit29.Text);
adoq1.ExecSQL ;
adoq2.SQL.Clear ;
adoq2.SQL.Add('select 編號,單據編碼,供貨商名稱,商品簡碼,商品編碼,商品名稱,類別,規格,型號,單位,參考單價,數量 from xshd where 單據編碼=:djbm and 錄單日期 between #'+edit34.text+ '# and #' +edit34.text+'#');
adoq2.Parameters.ParamByName('djbm').Value :=edit33.Text;
adoq2.Active :=true;
datas1.DataSet :=adoq2;
dbgrid1.DataSource:=datas1;
statusbar1.Panels[1].Text :=inttostr(adoq2.Recordset.RecordCount);
edit6.Clear ;
edit7.Clear ;edit8.Clear ;edit9.Clear ;edit10.clear;edit11.Clear;edit12.clear;
edit13.Text :='0';
edit14.Text :='0';
datetimepicker1.date:=date;
if (length(edit2.Text)<>0) and (length(edit3.Text)<>0) then
edit6.SetFocus ;
end;
//end ;
end
else
begin
showmessage('請正確輸入銷售單號,供貨商名稱,商品名稱!');
if (length(edit2.Text)<>0) and (length(edit3.Text)<>0) then
edit6.SetFocus
else edit2.SetFocus ;
end;
end;
procedure Txsh_form.SpeedButton17Click(Sender: TObject);
begin
with database do
begin
adoq1.Connection :=adoc;
if application.MessageBox('是否真的刪除?','記錄刪除',4)=6 then
begin
adoq1.SQL.Clear ;
adoq1.SQL.Add('delete from xshd where 編號=:bh');//單據編碼=:djbm and 編號=:spbm');
//adoq1.Parameters.ParamByName('djbm').Value:=edit31.Text;
adoq1.Parameters.ParamByName('bh').Value:=edit32.Text;
adoq1.ExecSQL ;
end;
adoq1.SQL.Clear ;
adoq1.SQL.Add('select * from xshd');
adoq1.Active :=true;
datas1.DataSet:=adoq1;
dbgrid1.DataSource :=datas1;
statusbar1.Panels[1].Text :=inttostr(adoq1.Recordset.RecordCount);
end;
end;
procedure Txsh_form.Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then
edit3.SetFocus ;
end;
procedure Txsh_form.Edit3KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then
speedbutton10click(nil);
end;
procedure Txsh_form.SpeedButton10Click(Sender: TObject);
begin
jh_ghs_find_form:=Tjh_ghs_find_form.create(application);
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -