?? unit10.~pas
字號:
unit Unit10;
interface
uses
Windows, Messages, Classes, SysUtils, Graphics, Controls, StdCtrls, Forms,
Dialogs, DBCtrls, DB, Mask, ExtCtrls, Buttons;
type
TF_sfk = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
EditDBEdit2: TDBEdit;
EditDBEdit4: TDBEdit;
EditDBEdit5: TDBEdit;
EditDBEdit6: TDBEdit;
MemoDBMemo: TDBMemo;
Label8: TLabel;
DBEdit1: TDBEdit;
Panel2: TPanel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
DBComboBox1: TDBComboBox;
DBComboBox2: TDBComboBox;
Button2: TButton;
Button1: TButton;
procedure Button2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure DBComboBox1Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
F_sfk: TF_sfk;
implementation
uses unit1, Unit8, Unit14, Unit13, Unit17;
{$R *.DFM}
procedure TF_sfk.Button2Click(Sender: TObject);
begin
custom_window:='c_sfk';
F_rsxz.ShowModal;
end;
procedure TF_sfk.BitBtn1Click(Sender: TObject);
var
rkd_no,sfk_sql:string;
begin
rkd_no:=F_sfk.EditDBEdit2.text;
if DBComboBox1.text='付款' then
sfk_sql:='select 供應商 as 單位 from 入庫單 where 入庫單號='+''''+rkd_no+''''
else sfk_sql:='select 客戶名稱 as 單位 from 出庫單 where 出庫單號='+''''+rkd_no+'''';
with mainform.Q_sfk_kh do
begin
close;
sql.Clear;
sql.Add(sfk_sql);
open;
end;
if mainform.Q_sfk_kh.Eof=true then
begin
application.MessageBox('你輸入的單號不存在,請重新輸入!','系統警告',MB_ok+MB_Iconstop);
F_sfk.EditDBEdit2.SetFocus;
end else
begin
mainform.A_sfk.FieldByName('單位').asstring:=mainform.Q_sfk_kh.FieldByName('單位').asstring;
mainform.A_sfk.Post;
if custom_window='c_rkd' then
begin
mainform.A_rkd.Close;
mainform.A_rkd.Open;
mainform.A_rkd.locate('入庫單號',rkd_no,[loCaseInsensitive]);
end;
if custom_window='c_ckd' then
begin
rkd_no:=F_sfk.EditDBEdit2.text;
mainform.A_ckd.Close;
mainform.A_ckd.Open;
mainform.A_ckd.locate('出庫單號',rkd_no,[loCaseInsensitive]);
end;
close;
end;
end;
procedure TF_sfk.FormClose(Sender: TObject; var Action: TCloseAction);
begin
mainform.A_sfk.cancel;
end;
procedure TF_sfk.FormShow(Sender: TObject);
begin
mainform.SYS_money.First;
DBComboBox2.Items.Clear;
while mainform.SYS_money.eof=false do
begin
DBComboBox2.Items.add(mainform.SYS_money.fields[1].asstring);
mainform.SYS_money.next;
end;
mainform.A_sfk.FieldByName('日期').Asstring:=datetostr(now);
end;
procedure TF_sfk.DBComboBox1Change(Sender: TObject);
begin
if DBComboBox1.Text='收款' then
begin
DBComboBox1.Color:=clgreen;
end else
begin
if DBComboBox1.Text='付款' then
begin
DBComboBox1.Color:=clred;
end else DBComboBox1.Color:=clwindow;
end;
end;
procedure TF_sfk.Button1Click(Sender: TObject);
begin
if DBComboBox1.text='收款' then F_cksfk.showmodal;
if DBComboBox1.text='付款' then F_rksfk.showmodal;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -