【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了,gs_add.pas,希望对大家有所帮助!
unit gs_add;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Grids, DBGrids, Buttons, Mask, Db, DBTables, DBCtrls, Printers;
type
Tfrm_gs_add = class(TForm)
pe_bh: TPanel;
combo_p: TComboBox;
pe_info: TPanel;
DBGrid1: TDBGrid;
Panel1: TPanel;
cmd_new: TBitBtn;
cmd_edit: TBitBtn;
cmd_save: TBitBtn;
cmd_cancel: TBitBtn;
cmd_del: TBitBtn;
cmd_print: TBitBtn;
pe_edit: TPanel;
Label2: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
txt_kind: TEdit;
b1: TBitBtn;
txt_sum: TEdit;
txt_zj: TEdit;
txt_dj: TEdit;
pe_image: TPanel;
Image1: TImage;
qe_gs_add: TQuery;
ds_gs_add: TDataSource;
qe_jy1: TQuery;
sp_del_from_gs_ad: TStoredProc;
Label3: TLabel;
qe_pg: TQuery;
combo_pg: TDBLookupComboBox;
ds_pg: TDataSource;
qe_gs: TQuery;
qe_jy: TQuery;
ds_jy1: TDataSource;
Panel2: TPanel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
txt_time: TDBEdit;
txt_cph: TDBEdit;
txt_cx: TDBEdit;
txt_cz: TDBEdit;
txt_wx: TDBEdit;
txt_bx: TDBEdit;
txt_dw: TDBEdit;
Label1: TLabel;
combo_bh: TComboBox;
//
procedure ControlKeyPress4(Sender: TObject; var Key: Char);
procedure ControlKeyPress2(Sender: TObject; var Key: Char);
procedure ControlKeyPress3(Sender: TObject; var Key: Char);
procedure cmd_qClick(Sender: TObject);
procedure ControlClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure ControlChange1(Sender: TObject);
procedure b1Click(Sender: TObject);
procedure ControlEnter(Sender: TObject);
procedure cmd_editClick(Sender: TObject);
procedure cmd_cancelClick(Sender: TObject);
procedure cmd_delClick(Sender: TObject);
procedure cmd_newClick(Sender: TObject);
procedure cmd_saveClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure cmd_printClick(Sender: TObject);
procedure txt_djChange(Sender: TObject);
procedure combo_bhChange(Sender: TObject);
private
{ Private declarations }
hideList: TListBox;
spaceArray: array[0..20] of string;
cur_bh: string;
cur_cph: string;
cur_cz: string;
cur_czdw: string;
cur_dph: string;
cur_cx: string;
//
procedure QueryResult;
procedure EnabledComponent(intState: TDataSetState);
procedure arrayInit;
procedure lstInfoInit;
procedure controlSetFocus(intpos: integer);
function RuleCheck: integer;
procedure EditInit;
procedure NewInit;
procedure SaveInit;
procedure CancelInit;
procedure ExeDelandInit;
procedure InitBHList;
public
{ Public declarations }
end;
var
frm_gs_add: Tfrm_gs_add;
implementation
{$R *.DFM}
uses
log, main, pg_print;
procedure Tfrm_gs_add.InitBHList;
begin
qe_jy.Close;
qe_jy.SQL.Clear;
qe_jy.SQL.Add('SELECT DJ_BH FROM CL_DJ WHERE DJ_ZF_BS = 0 AND DJ_JS_BS = 0 ORDER BY DJ_BH');
qe_jy.Open;
qe_jy.First;
//
if (qe_jy.Bof) and (qe_jy.Eof) then begin
//MessageBox(Handle, '未找到尚未结算的委托编号', '沈阳信德', MB_ICONQUESTION or MB_OK);
Exit;
end else begin
combo_bh.Items.Clear;
while not qe_jy.Eof do begin
combo_bh.Items.Add(Trim(qe_jy.FieldByName('dj_bh').AsString));
qe_jy.Next;
end;
combo_bh.ItemIndex := -1;
end;
end;
procedure Tfrm_gs_add.SaveInit;
begin
pe_bh.Enabled := True;
pe_image.Visible := True;
pe_info.Enabled := True;
pe_edit.Visible := False;
//
EnabledComponent(dsBrowse);
end;
procedure Tfrm_gs_add.EditInit;
begin
pe_edit.Visible := True;
pe_image.Visible := False;
pe_info.Enabled := False;
pe_bh.Enabled := False;
//
txt_kind.Text := Trim(qe_gs_add.FieldByName('gs_text').AsString);
txt_sum.Text := FloatToStr(qe_gs_add.FieldByName('gs_sum').Value);
txt_dj.Text := FloatToStr(qe_gs_add.FieldByName('gs_dj').Value);
txt_zj.Text := FloatToStr(qe_gs_add.FieldByName('gs_zj').Value);
combo_pg.KeyValue := Trim(qe_gs_add.FieldByName('gs_pg_id').AsString);
txt_kind.SetFocus;
//
cmd_edit.Enabled := False;
cmd_new.Enabled := False;
cmd_save.Enabled := False;
cmd_cancel.Enabled := True;
cmd_print.Enabled := False;
cmd_del.Enabled := False;
//
qe_gs_add.Edit;
end;
procedure Tfrm_gs_add.NewInit;
begin
pe_bh.Enabled := False;
pe_image.Visible := False;
pe_info.Enabled := False;
pe_edit.Visible := True;
//
cmd_new.Enabled := True;
cmd_save.Enabled